morph_FINAL_new
Allison Davis Connelly
12/22/2023
Morphological variation of amazon and sailfin mollies
In this study, I am looking at various populations of amazon and sailfin mollies across their native/introduced range to assess morphological variation both within and among the species. I am using the Pickle fish collections for my samples.
All data
I will use all data first to see the trends, then filter for confirmed adult sizes (see “Filtered”).
Initial steps
Data collection
## Using libcurl 8.3.0 with SchannelChecking normality
Checking normality
I will use Shapiro-wilke, histograms, and QQ plots to determine what traits are normal. These will only be performed on continuous variables, as discrete variables are not normal by nature.
Conclusions: literally all of them are NOT normal… will log transform them and double check normality. Had to square-root three traits () because still not normal with log transform.
SW Test
shapiro.test(raw1$SL)##
## Shapiro-Wilk normality test
##
## data: raw1$SL
## W = 0.9763, p-value = 2.763e-05shapiro.test(raw1$BD)##
## Shapiro-Wilk normality test
##
## data: raw1$BD
## W = 0.96287, p-value = 1.787e-07shapiro.test(raw1$CPD)##
## Shapiro-Wilk normality test
##
## data: raw1$CPD
## W = 0.96431, p-value = 2.908e-07shapiro.test(raw1$CPL)##
## Shapiro-Wilk normality test
##
## data: raw1$CPL
## W = 0.97288, p-value = 6.831e-06shapiro.test(raw1$PreDL)##
## Shapiro-Wilk normality test
##
## data: raw1$PreDL
## W = 0.97924, p-value = 9.997e-05shapiro.test(raw1$DbL)##
## Shapiro-Wilk normality test
##
## data: raw1$DbL
## W = 0.97697, p-value = 3.68e-05shapiro.test(raw1$HL)##
## Shapiro-Wilk normality test
##
## data: raw1$HL
## W = 0.95327, p-value = 8.841e-09shapiro.test(raw1$HD)##
## Shapiro-Wilk normality test
##
## data: raw1$HD
## W = 0.96761, p-value = 9.28e-07shapiro.test(raw1$HW)##
## Shapiro-Wilk normality test
##
## data: raw1$HW
## W = 0.97201, p-value = 4.833e-06shapiro.test(raw1$SnL)##
## Shapiro-Wilk normality test
##
## data: raw1$SnL
## W = 0.97684, p-value = 3.477e-05shapiro.test(raw1$OL)##
## Shapiro-Wilk normality test
##
## data: raw1$OL
## W = 0.98631, p-value = 0.003102####### WITHOUT MONSTER ########
shapiro.test(raw1b$SL)##
## Shapiro-Wilk normality test
##
## data: raw1b$SL
## W = 0.97628, p-value = 2.822e-05shapiro.test(raw1b$BD)##
## Shapiro-Wilk normality test
##
## data: raw1b$BD
## W = 0.96271, p-value = 1.754e-07shapiro.test(raw1b$CPD)##
## Shapiro-Wilk normality test
##
## data: raw1b$CPD
## W = 0.9646, p-value = 3.326e-07shapiro.test(raw1b$CPL)##
## Shapiro-Wilk normality test
##
## data: raw1b$CPL
## W = 0.97267, p-value = 6.468e-06shapiro.test(raw1b$PreDL)##
## Shapiro-Wilk normality test
##
## data: raw1b$PreDL
## W = 0.97945, p-value = 0.0001126shapiro.test(raw1b$DbL)##
## Shapiro-Wilk normality test
##
## data: raw1b$DbL
## W = 0.97724, p-value = 4.257e-05shapiro.test(raw1b$HL)##
## Shapiro-Wilk normality test
##
## data: raw1b$HL
## W = 0.95317, p-value = 8.955e-09shapiro.test(raw1b$HD)##
## Shapiro-Wilk normality test
##
## data: raw1b$HD
## W = 0.96763, p-value = 9.667e-07shapiro.test(raw1b$HW)##
## Shapiro-Wilk normality test
##
## data: raw1b$HW
## W = 0.9723, p-value = 5.603e-06shapiro.test(raw1b$SnL)##
## Shapiro-Wilk normality test
##
## data: raw1b$SnL
## W = 0.97673, p-value = 3.419e-05shapiro.test(raw1b$OL)##
## Shapiro-Wilk normality test
##
## data: raw1b$OL
## W = 0.98643, p-value = 0.003371Histograms
par(mfcol=c(2,2), oma = c(0,0,2,0))
hist(raw1$SL, breaks=30)
hist(raw1$BD, breaks=30)
hist(raw1$CPD, breaks=30)
hist(raw1$CPL, breaks=30)
hist(raw1$PreDL, breaks=30)
hist(raw1$DbL, breaks=30)
hist(raw1$HL, breaks=30)
hist(raw1$HD, breaks=30)
hist(raw1$HW, breaks=30)
hist(raw1$SnL, breaks=30)
hist(raw1$OL, breaks=30)
####### WITHOUT MONSTER ########
#hist(raw1b$SL, breaks=30)
#hist(raw1b$BD, breaks=30)
#hist(raw1b$CPD, breaks=30)
#hist(raw1b$CPL, breaks=30)
#hist(raw1b$PreDL, breaks=30)
#hist(raw1b$DbL, breaks=30)
#hist(raw1b$HL, breaks=30)
#hist(raw1b$HD, breaks=30)
#hist(raw1b$HW, breaks=30)
#hist(raw1b$SnL, breaks=30)
#hist(raw1b$OL, breaks=30)
QQ plots
par(mfcol=c(2,2), oma = c(0,0,2,0))
qqnorm(raw1$SL)
qqline(raw1$SL)
qqnorm(raw1$BD)
qqline(raw1$BD)
qqnorm(raw1$CPD)
qqline(raw1$CPD)
qqnorm(raw1$CPL)
qqline(raw1$CPL)
qqnorm(raw1$PreDL)
qqline(raw1$PreDL)
qqnorm(raw1$DbL)
qqline(raw1$DbL)
qqnorm(raw1$HL)
qqline(raw1$HL)
qqnorm(raw1$HD)
qqline(raw1$HD)
qqnorm(raw1$HW)
qqline(raw1$HW)
qqnorm(raw1$SnL)
qqline(raw1$SnL)
qqnorm(raw1$OL)
qqline(raw1$OL)
Log transformations
Since all of the continuous characters were not normal, I will log transform them, and proceed with the transformed data in all analyses.
raw1[paste0(names(raw1), '_log')] <- log(raw1[, 26:35], 10)
#for some reason did the log of the whole data frame instead of those specific columns, so I will just remove the unnecessary columns instead of spending time on what went wrong.
raw1 <- raw1[-c(37:60)]
raw1 <- raw1[-c(48)]
#double checking normality with a SW test and QQ plot
shapiro.test(raw1$SL_log)##
## Shapiro-Wilk normality test
##
## data: raw1$SL_log
## W = 0.99271, p-value = 0.1056shapiro.test(raw1$BD_log)##
## Shapiro-Wilk normality test
##
## data: raw1$BD_log
## W = 0.98772, p-value = 0.006571shapiro.test(raw1$CPD_log)##
## Shapiro-Wilk normality test
##
## data: raw1$CPD_log
## W = 0.99285, p-value = 0.1144shapiro.test(raw1$CPL_log)##
## Shapiro-Wilk normality test
##
## data: raw1$CPL_log
## W = 0.99513, p-value = 0.3824shapiro.test(raw1$PreDL_log)##
## Shapiro-Wilk normality test
##
## data: raw1$PreDL_log
## W = 0.99436, p-value = 0.2588shapiro.test(raw1$DbL_log)##
## Shapiro-Wilk normality test
##
## data: raw1$DbL_log
## W = 0.98042, p-value = 0.0001711shapiro.test(raw1$HL_log)##
## Shapiro-Wilk normality test
##
## data: raw1$HL_log
## W = 0.99386, p-value = 0.1984shapiro.test(raw1$HD_log)##
## Shapiro-Wilk normality test
##
## data: raw1$HD_log
## W = 0.99661, p-value = 0.7102shapiro.test(raw1$HW_log)##
## Shapiro-Wilk normality test
##
## data: raw1$HW_log
## W = 0.99491, p-value = 0.3435shapiro.test(raw1$SnL_log)##
## Shapiro-Wilk normality test
##
## data: raw1$SnL_log
## W = 0.99366, p-value = 0.1788shapiro.test(raw1$OL_log)##
## Shapiro-Wilk normality test
##
## data: raw1$OL_log
## W = 0.99271, p-value = 0.1056par(mfcol=c(2,2), oma = c(0,0,2,0))
qqnorm(raw1$SL_log)
qqline(raw1$SL_log)
qqnorm(raw1$BD_log)
qqline(raw1$BD_log)
qqnorm(raw1$CPD_log)
qqline(raw1$CPD_log)
qqnorm(raw1$CPL_log)
qqline(raw1$CPL_log)
qqnorm(raw1$PreDL_log)
qqline(raw1$PreDL_log)
qqnorm(raw1$DbL_log)
qqline(raw1$DbL_log)
qqnorm(raw1$HL_log)
qqline(raw1$HL_log)
qqnorm(raw1$HD_log)
qqline(raw1$HD_log)
qqnorm(raw1$HW_log)
qqline(raw1$HW_log)
qqnorm(raw1$SnL_log)
qqline(raw1$SnL_log)
qqnorm(raw1$OL_log)
qqline(raw1$OL_log)
Need to try other transformations for body depth, predorsal length, and dorsal base length. Will try squareroot or cuberoot to see what gets them normal. Cubed got them closest to normal (bd still not normal but other two are).
#raw1$sqR_BD ='^'(raw1$BD,1/2)
#raw1$sqR_PreDL ='^'(raw1$PreDL,1/2)
#raw1$sqR_DbL ='^'(raw1$DbL,1/2)
#shapiro.test(raw1$sqR_BD) #didn't work
#shapiro.test(raw1$sqR_PreDL)#worked
#shapiro.test(raw1$sqR_DbL)#worked
#qqnorm(raw1$sqR_BD)
#qqline(raw1$sqR_BD)
#qqnorm(raw1$sqR_PreDL)
#qqline(raw1$sqR_PreDL)
#qqnorm(raw1$sqR_DbL)
#qqline(raw1$sqR_PreDL)
#cubed root
raw1$cbR_BD ='^'(raw1$BD,1/3)
raw1$cbR_PreDL ='^'(raw1$PreDL,1/3)
raw1$cbR_DbL ='^'(raw1$DbL,1/3)
shapiro.test(raw1$cbR_BD) #didn't work, but closest to normal##
## Shapiro-Wilk normality test
##
## data: raw1$cbR_BD
## W = 0.9892, p-value = 0.01468shapiro.test(raw1$cbR_PreDL)#worked##
## Shapiro-Wilk normality test
##
## data: raw1$cbR_PreDL
## W = 0.9939, p-value = 0.2027shapiro.test(raw1$cbR_DbL)#worked##
## Shapiro-Wilk normality test
##
## data: raw1$cbR_DbL
## W = 0.99582, p-value = 0.5246par(mfcol=c(2,2), oma = c(0,0,2,0))
qqnorm(raw1$cbR_BD)
qqline(raw1$cbR_BD)
qqnorm(raw1$cbR_PreDL)
qqline(raw1$cbR_PreDL)
qqnorm(raw1$cbR_DbL)
qqline(raw1$cbR_PreDL)
#raw1 <- raw1[-c(48:50)]
#need to cube root SL to use in regressions
raw1$cbR_SL ='^'(raw1$SL,1/3)
Correcting for body size (residuals)
SL correction
Since amazons are in general bigger than sailfin, we don’t want any results to be due to this difference in body size bias. Therefore, we will see what traits are influenced by body size (regressions) and correct for body size when necessary (absolute value of residuals). We can then use the residuals when comparing between species for traits that are influenced by body size, and raw/transformed data for traits that are not influenced by body size. I will also calculate standardized residuals to compare residuals across traits in later analyses.
Quick results summary: traits not influenced by body size are left & right pelvic, anal, scales above and below lateral line (except in mexicana), scales before dorsal fin and fluctuating asymmetry; all other traits influenced by body size.
Regressions
- STEP ONE: plot trait vs body size
library(ggplot2)
library(ggpubr)
lat <- raw1[raw1$SPP == "p.latipinna",]
form <- raw1[raw1$SPP == "p.formosa",]
mex <- raw1[raw1$SPP == "p.mexicana",]
###just want to see if body size is actually different between the species
t.test(lat$SL_log, form$SL_log, alternative = "two.sided")##
## Welch Two Sample t-test
##
## data: lat$SL_log and form$SL_log
## t = 9.6224, df = 295.24, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 0.08951299 0.13554293
## sample estimates:
## mean of x mean of y
## 0.9609465 0.8484185t.test(lat$BD_log, form$BD_log, alternative = "two.sided")##
## Welch Two Sample t-test
##
## data: lat$BD_log and form$BD_log
## t = -1.3924, df = 294.83, p-value = 0.1649
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.030362183 0.005201163
## sample estimates:
## mean of x mean of y
## 0.9296190 0.9421995t.test(lat$SL_log, mex$SL_log, alternative = "two.sided")##
## Welch Two Sample t-test
##
## data: lat$SL_log and mex$SL_log
## t = 19.62, df = 63.026, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 0.2580037 0.3165191
## sample estimates:
## mean of x mean of y
## 0.9609465 0.6736851t.test(lat$BD_log, mex$BD_log, alternative = "two.sided")##
## Welch Two Sample t-test
##
## data: lat$BD_log and mex$BD_log
## t = 0.80331, df = 59.941, p-value = 0.425
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.01404771 0.03290210
## sample estimates:
## mean of x mean of y
## 0.9296190 0.9201918t.test(mex$SL_log, form$SL_log, alternative = "two.sided")##
## Welch Two Sample t-test
##
## data: mex$SL_log and form$SL_log
## t = -11.892, df = 64.41, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.2040836 -0.1453833
## sample estimates:
## mean of x mean of y
## 0.6736851 0.8484185t.test(mex$BD_log, form$BD_log, alternative = "two.sided")##
## Welch Two Sample t-test
##
## data: mex$BD_log and form$BD_log
## t = -1.8729, df = 60.675, p-value = 0.0659
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.045506633 0.001491221
## sample estimates:
## mean of x mean of y
## 0.9201918 0.9421995##### LAT #####
par(mfcol=c(2,2), oma = c(0,0,2,0))
reg.lat.D <- lm(lat$D ~ lat$SL)
sd.lat.D <- rstandard(reg.lat.D)
reg.lat.D.plot <- ggplot(lat, aes(x = SL, y = D)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
reg.lat.D.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.P1 <- lm(lat$P1 ~ lat$SL)
sd.lat.P1 <- rstandard(reg.lat.P1)
reg.lat.P1.plot <- ggplot(lat, aes(x = SL, y = P1)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
reg.lat.P1.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.A <- lm(lat$A ~ lat$SL)
sd.lat.A <- rstandard(reg.lat.A)
reg.lat.A.plot <- ggplot(lat, aes(x = SL, y = A)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 8)
reg.lat.A.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.P1.R <- lm(lat$P1.R ~ lat$SL)
sd.lat.P1.R <- rstandard(reg.lat.P1.R)
reg.lat.P1.R.plot <- ggplot(lat, aes(x = SL, y = P1.R)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
reg.lat.P1.R.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.LLSC <- lm(lat$LLSC ~ lat$SL)
sd.lat.LLSC <- rstandard(reg.lat.LLSC)
reg.lat.LLSC.plot <- ggplot(lat, aes(x = SL, y = LLSC)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 20)
reg.lat.LLSC.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.SALL <- lm(lat$SALL ~ lat$SL)
sd.lat.SALL <- rstandard(reg.lat.SALL)
reg.lat.SALL.plot <- ggplot(lat, aes(x = SL, y = SALL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.lat.SALL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.SBLL <- lm(lat$SBLL ~ lat$SL)
sd.lat.SBLL <- rstandard(reg.lat.SBLL)
reg.lat.SBLL.plot <- ggplot(lat, aes(x = SL, y = SBLL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 2)
reg.lat.SBLL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.SBDF <- lm(lat$SBDF ~ lat$SL)
sd.lat.SBDF <- rstandard(reg.lat.SBDF)
reg.lat.SBDF.plot <- ggplot(lat, aes(x = SL, y = SBDF)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.lat.SBDF.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.BD <- lm(lat$cbR_BD ~ lat$cbR_SL)
sd.lat.BD <- rstandard(reg.lat.BD)
reg.lat.BD.plot <- ggplot(lat, aes(x = cbR_SL, y = cbR_BD)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3)
reg.lat.BD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.CPD <- lm(lat$CPD_log ~ lat$SL_log)
sd.lat.CPD <- rstandard(reg.lat.CPD)
reg.lat.CPD.plot <- ggplot(lat, aes(x = SL_log, y = CPD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.lat.CPD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.CPL <- lm(lat$CPL_log ~ lat$SL_log)
sd.lat.CPL <- rstandard(reg.lat.CPL)
reg.lat.CPL.plot <- ggplot(lat, aes(x = SL_log, y = CPL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.lat.CPL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.PreDL <- lm(lat$cbR_PreDL ~ lat$cbR_SL)
sd.lat.PreDL <- rstandard(reg.lat.PreDL)
reg.lat.PreDL.plot <- ggplot(lat, aes(x = cbR_SL, y = cbR_PreDL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.2)
reg.lat.PreDL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.DbL <- lm(lat$cbR_DbL ~ lat$cbR_SL)
sd.lat.DbL <- rstandard(reg.lat.DbL)
reg.lat.DbL.plot <- ggplot(lat, aes(x = cbR_SL, y = cbR_DbL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3)
reg.lat.DbL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.HL <- lm(lat$HL_log ~ lat$SL_log)
sd.lat.HL <- rstandard(reg.lat.HL)
reg.lat.HL.plot <- ggplot(lat, aes(x = SL_log, y = HL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.lat.HL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.HD <- lm(lat$HD_log ~ lat$SL_log)
sd.lat.HD <- rstandard(reg.lat.HD)
reg.lat.HD.plot <- ggplot(lat, aes(x = SL_log, y = HD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.lat.HD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.HW <- lm(lat$HW_log ~ lat$SL_log)
sd.lat.HW <- rstandard(reg.lat.HW)
reg.lat.HW.plot <- ggplot(lat, aes(x = SL_log, y = HW_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.lat.HW.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.SnL <- lm(lat$SnL_log ~ lat$SL_log)
sd.lat.SnL <- rstandard(reg.lat.SnL)
reg.lat.SnL.plot <- ggplot(lat, aes(x = SL_log, y = SnL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.8)
reg.lat.SnL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.OL <- lm(lat$OL_log ~ lat$SL_log)
sd.lat.OL <- rstandard(reg.lat.OL)
reg.lat.OL.plot <- ggplot(lat, aes(x = SL_log, y = OL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.lat.OL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.lat.FLA <- lm(lat$FLA ~ lat$SL)
sd.lat.FLA <- rstandard(reg.lat.FLA)
reg.lat.FLA.plot <- ggplot(lat, aes(x = SL, y = FLA)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.lat.FLA.plot## `geom_smooth()` using formula = 'y ~ x'
##### FORM #####
reg.form.D <- lm(form$D ~ form$SL)
sd.form.D <- rstandard(reg.form.D)
reg.form.D.plot <- ggplot(form, aes(x =SL, y = D)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 9)
reg.form.D.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.P1 <- lm(form$P1 ~ form$SL)
sd.form.P1 <- rstandard(reg.form.P1)
reg.form.P1.plot <- ggplot(form, aes(x = SL, y = P1)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
reg.form.P1.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.A <- lm(form$A ~ form$SL)
sd.form.A <- rstandard(reg.form.A)
reg.form.A.plot <- ggplot(form, aes(x = SL, y = A)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 8)
reg.form.A.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.P1.R <- lm(form$P1.R ~ form$SL)
sd.form.P1.R <- rstandard(reg.form.P1.R)
reg.form.P1.R.plot <- ggplot(form, aes(x = SL, y = P1.R)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
reg.form.P1.R.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.LLSC <- lm(form$LLSC ~ form$SL)
sd.form.LLSC <- rstandard(reg.form.LLSC)
reg.form.LLSC.plot <- ggplot(form, aes(x = SL, y = LLSC)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 18.5)
reg.form.LLSC.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.SALL <- lm(form$SALL ~ form$SL)
sd.form.SALL <- rstandard(reg.form.SALL)
reg.form.SALL.plot <- ggplot(form, aes(x = SL, y = SALL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.form.SALL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.SBLL <- lm(form$SBLL ~ form$SL)
sd.form.SBLL <- rstandard(reg.form.SBLL)
reg.form.SBLL.plot <- ggplot(form, aes(x = SL, y = SBLL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 2)
reg.form.SBLL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.SBDF <- lm(form$SBDF ~ form$SL)
sd.form.SBDF <- rstandard(reg.form.SBDF)
reg.form.SBDF.plot <- ggplot(form, aes(x = SL, y = SBDF)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 5)
reg.form.SBDF.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.BD <- lm(form$cbR_BD ~ form$cbR_SL)
sd.form.BD <- rstandard(reg.form.BD)
reg.form.BD.plot <- ggplot(form, aes(x = cbR_SL, y = cbR_BD)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3)
reg.form.BD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.CPD <- lm(form$CPD_log ~ form$SL_log)
sd.form.CPD <- rstandard(reg.form.CPD)
reg.form.CPD.plot <- ggplot(form, aes(x = SL_log, y = CPD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.form.CPD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.CPL <- lm(form$CPL_log ~ form$SL_log)
sd.form.CPL <- rstandard(reg.form.CPL)
reg.form.CPL.plot <- ggplot(form, aes(x = SL_log, y = CPL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.form.CPL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.PreDL <- lm(form$cbR_PreDL ~ form$cbR_SL)
sd.form.PreDL <- rstandard(reg.form.PreDL)
reg.form.PreDL.plot <- ggplot(form, aes(x = cbR_SL, y = cbR_PreDL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.2)
reg.form.PreDL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.DbL <- lm(form$cbR_DbL ~ form$cbR_SL)
sd.form.DbL <- rstandard(reg.form.DbL)
reg.form.DbL.plot <- ggplot(form, aes(x = cbR_SL, y = cbR_DbL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3)
reg.form.DbL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.HL <- lm(form$HL_log ~ form$SL_log)
sd.form.HL <- rstandard(reg.form.HL)
reg.form.HL.plot <- ggplot(form, aes(x = SL_log, y = HL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.form.HL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.HD <- lm(form$HD_log ~ form$SL_log)
sd.form.HD <- rstandard(reg.form.HD)
reg.form.HD.plot <- ggplot(form, aes(x = SL_log, y = HD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.form.HD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.HW <- lm(form$HW_log ~ form$SL_log)
sd.form.HW <- rstandard(reg.form.HW)
reg.form.HW.plot <- ggplot(form, aes(x = SL_log, y = HW_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.form.HW.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.SnL <- lm(form$SnL_log ~ form$SL_log)
sd.form.SnL <- rstandard(reg.form.SnL)
reg.form.SnL.plot <- ggplot(form, aes(x = SL_log, y = SnL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.8)
reg.form.SnL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.OL <- lm(form$OL_log ~ form$SL_log)
sd.form.OL <- rstandard(reg.form.OL)
reg.form.OL.plot <- ggplot(form, aes(x = SL_log, y = OL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.form.OL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.form.FLA <- lm(form$FLA ~ form$SL)
sd.form.FLA <- rstandard(reg.form.FLA)
reg.form.FLA.plot <- ggplot(form, aes(x = SL, y = FLA)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.form.FLA.plot## `geom_smooth()` using formula = 'y ~ x'
##### MEX #####
reg.mex.D <- lm(mex$D ~ mex$SL)
sd.mex.D <- rstandard(reg.mex.D)
reg.mex.D.plot <- ggplot(mex, aes(x = SL, y = D)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
reg.mex.D.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.P1 <- lm(mex$P1 ~ mex$SL)
sd.mex.P1 <- rstandard(reg.mex.P1)
reg.mex.P1.plot <- ggplot(mex, aes(x = SL, y = P1)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
reg.mex.P1.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.A <- lm(mex$A ~ mex$SL)
sd.mex.A <- rstandard(reg.mex.A)
reg.mex.A.plot <- ggplot(mex, aes(x = SL, y = A)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 8)
reg.mex.A.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.P1.R <- lm(mex$P1.R ~ mex$SL)
sd.mex.P1.R <- rstandard(reg.mex.P1.R)
reg.mex.P1.R.plot <- ggplot(mex, aes(x = SL, y = P1.R)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
reg.mex.P1.R.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.LLSC <- lm(mex$LLSC ~ mex$SL)
sd.mex.LLSC <- rstandard(reg.mex.LLSC)
reg.mex.LLSC.plot <- ggplot(mex, aes(x = SL, y = LLSC)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 20)
reg.mex.LLSC.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.SALL <- lm(mex$SALL ~ mex$SL)
sd.mex.SALL <- rstandard(reg.mex.SALL)
reg.mex.SALL.plot <- ggplot(mex, aes(x = SL, y = SALL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
reg.mex.SALL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.SBLL <- lm(mex$SBLL ~ mex$SL)
sd.mex.SBLL <- rstandard(reg.mex.SBLL)
reg.mex.SBLL.plot <- ggplot(mex, aes(x = SL, y = SBLL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 2)
reg.mex.SBLL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.SBDF <- lm(mex$SBDF ~ mex$SL)
sd.mex.SBDF <- rstandard(reg.mex.SBDF)
reg.mex.SBDF.plot <- ggplot(mex, aes(x = SL, y = SBDF)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 5)
reg.mex.SBDF.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.BD <- lm(mex$cbR_BD ~ mex$cbR_SL)
sd.mex.BD <- rstandard(reg.mex.BD)
reg.mex.BD.plot <- ggplot(mex, aes(x = cbR_SL, y = cbR_BD)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.BD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.CPD <- lm(mex$CPD_log ~ mex$SL_log)
sd.mex.CPD <- rstandard(reg.mex.CPD)
reg.mex.CPD.plot <- ggplot(mex, aes(x = SL_log, y = CPD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.CPD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.CPL <- lm(mex$CPL_log ~ mex$SL_log)
sd.mex.CPL <- rstandard(reg.mex.CPL)
reg.mex.CPL.plot <- ggplot(mex, aes(x = SL_log, y = CPL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.CPL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.PreDL <- lm(mex$cbR_PreDL ~ mex$cbR_SL)
sd.mex.PreDL <- rstandard(reg.mex.PreDL)
reg.mex.PreDL.plot <- ggplot(mex, aes(x = cbR_SL, y = cbR_PreDL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.PreDL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.DbL <- lm(mex$cbR_DbL ~ mex$cbR_SL)
sd.mex.DbL <- rstandard(reg.mex.DbL)
reg.mex.DbL.plot <- ggplot(mex, aes(x = cbR_SL, y = cbR_DbL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.DbL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.HL <- lm(mex$HL_log ~ mex$SL_log)
sd.mex.HL <- rstandard(reg.mex.HL)
reg.mex.HL.plot <- ggplot(mex, aes(x = SL_log, y = HL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.HL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.HD <- lm(mex$HD_log ~ mex$SL_log)
sd.mex.HD <- rstandard(reg.mex.HD)
reg.mex.HD.plot <- ggplot(mex, aes(x = SL_log, y = HD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.HD.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.HW <- lm(mex$HW_log ~ mex$SL_log)
sd.mex.HW <- rstandard(reg.mex.HW)
reg.mex.HW.plot <- ggplot(mex, aes(x = SL_log, y = HW_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.HW.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.SnL <- lm(mex$SnL_log ~ mex$SL_log)
sd.mex.SnL <- rstandard(reg.mex.SnL)
reg.mex.SnL.plot <- ggplot(mex, aes(x = SL_log, y = SnL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.SnL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.OL <- lm(mex$OL_log ~ mex$SL_log)
sd.mex.OL <- rstandard(reg.mex.OL)
reg.mex.OL.plot <- ggplot(mex, aes(x = SL_log, y = OL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
reg.mex.OL.plot## `geom_smooth()` using formula = 'y ~ x'
reg.mex.FLA <- lm(mex$FLA ~ mex$SL)
sd.mex.FLA <- rstandard(reg.mex.FLA)
reg.mex.FLA.plot <- ggplot(mex, aes(x = SL, y = FLA)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 4)
reg.mex.FLA.plot## `geom_smooth()` using formula = 'y ~ x'
Residuals
STEP TWO: get residuals for each individual for traits that were influenced by body size
STEP THREE: convert residuals to absolute value
##### LAT #####
abs.lat.D <- abs(res.lat.D)
mean(abs.lat.D)## [1] 0.5375505abs.lat.P1 <- abs(res.lat.P1)
mean(abs.lat.P1)## [1] 0.5466667abs.lat.P1.R <- abs(res.lat.P1.R)
mean(abs.lat.P1.R)## [1] 0.5799393abs.lat.LLSC <- abs(res.lat.LLSC)
mean(abs.lat.LLSC)## [1] 0.7664044abs.lat.SBLL <- abs(res.lat.SBLL)
mean(abs.lat.SBLL)## [1] 0.2461336abs.lat.BD <- abs(res.lat.BD)
mean(abs.lat.BD)## [1] 0.04778326abs.lat.CPD <- abs(res.lat.CPD)
mean(abs.lat.CPD)## [1] 0.03695739abs.lat.CPL <- abs(res.lat.CPL)
mean(abs.lat.CPL)## [1] 0.03732998abs.lat.PreDL <- abs(res.lat.PreDL)
mean(abs.lat.PreDL)## [1] 0.02707836abs.lat.DbL <- abs(res.lat.DbL)
mean(abs.lat.DbL)## [1] 0.0516366abs.lat.HL <- abs(res.lat.HL)
mean(abs.lat.HL)## [1] 0.03588147abs.lat.HD <- abs(res.lat.HD)
mean(abs.lat.HD)## [1] 0.03506907abs.lat.HW <- abs(res.lat.HW)
mean(abs.lat.HW)## [1] 0.03208151abs.lat.SnL <- abs(res.lat.SnL)
mean(abs.lat.SnL)## [1] 0.03208694abs.lat.OL <- abs(res.lat.OL)
mean(abs.lat.OL)## [1] 1.416081e-17##### FORM #####
abs.form.D <- abs(res.form.D)
mean(abs.form.D)## [1] 0.5668177abs.form.P1 <- abs(res.form.P1)
mean(abs.form.P1)## [1] 0.4843616abs.form.P1.R <- abs(res.form.P1.R)
mean(abs.form.P1.R)## [1] 0.4242033abs.form.LLSC <- abs(res.form.LLSC)
mean(abs.form.LLSC)## [1] 0.9038801abs.form.SBLL <- abs(res.form.SBLL)
mean(abs.form.SBLL)## [1] 0.3399272abs.form.BD <- abs(res.form.BD)
mean(abs.form.BD)## [1] 0.04710005abs.form.CPD <- abs(res.form.CPD)
mean(abs.form.CPD)## [1] 0.03046568abs.form.CPL <- abs(res.form.CPL)
mean(abs.form.CPL)## [1] 0.03738523abs.form.PreDL <- abs(res.form.PreDL)
mean(abs.form.PreDL)## [1] 0.02618636abs.form.DbL <- abs(res.form.DbL)
mean(abs.form.DbL)## [1] 0.05067905abs.form.HL <- abs(res.form.HL)
mean(abs.form.HL)## [1] 0.03919057abs.form.HD <- abs(res.form.HD)
mean(abs.form.HD)## [1] 0.03507274abs.form.HW <- abs(res.form.HW)
mean(abs.form.HW)## [1] 0.03744209abs.form.SnL <- abs(res.form.SnL)
mean(abs.form.SnL)## [1] 0.03321741abs.form.OL <- abs(res.form.OL)
mean(abs.form.OL)## [1] 6.018764e-18##### MEX #####
abs.mex.D <- abs(res.mex.D)
mean(abs.mex.D)## [1] 0.1657275abs.mex.P1 <- abs(res.mex.P1)
mean(abs.mex.P1)## [1] 0.5686425abs.mex.P1.R <- abs(res.mex.P1.R)
mean(abs.mex.P1.R)## [1] 0.458723abs.mex.LLSC <- abs(res.mex.LLSC)
mean(abs.mex.LLSC)## [1] 0.4434954abs.mex.SBLL <- abs(res.mex.SBLL)
mean(abs.mex.SBLL)## [1] 0.2713231abs.mex.BD <- abs(res.mex.BD)
mean(abs.mex.BD)## [1] 0.04568114abs.mex.CPD <- abs(res.mex.CPD)
mean(abs.mex.CPD)## [1] 0.03277006abs.mex.CPL <- abs(res.mex.CPL)
mean(abs.mex.CPL)## [1] 0.03878753abs.mex.PreDL <- abs(res.mex.PreDL)
mean(abs.mex.PreDL)## [1] 0.06019307abs.mex.DbL <- abs(res.mex.DbL)
mean(abs.mex.DbL)## [1] 0.04686893abs.mex.HL <- abs(res.mex.HL)
mean(abs.mex.HL)## [1] 0.05562721abs.mex.HD <- abs(res.mex.HD)
mean(abs.mex.HD)## [1] 0.03668815abs.mex.HW <- abs(res.mex.HW)
mean(abs.mex.HW)## [1] 0.03882769abs.mex.SnL <- abs(res.mex.SnL)
mean(abs.mex.SnL)## [1] 0.04900589abs.mex.OL <- abs(res.mex.OL)
mean(abs.mex.OL)## [1] 4.001035e-18#let's get this into the raw1 data set so that we can plot this more easily
abs.res.D <- c(abs.lat.D, abs.form.D, abs.mex.D)
abs.res.P1 <- c(abs.lat.P1, abs.form.P1, abs.mex.P1)
abs.res.P1.R <- c(abs.lat.P1.R, abs.form.P1.R, abs.mex.P1.R)
abs.res.LLSC<- c(abs.lat.LLSC, abs.form.LLSC, abs.mex.LLSC)
abs.res.SBLL<- c(abs.lat.SBLL, abs.form.SBLL, abs.mex.SBLL)
abs.res.BD<- c(abs.lat.BD, abs.form.BD, abs.mex.BD)
abs.res.CPD<- c(abs.lat.CPD, abs.form.CPD, abs.mex.CPD)
abs.res.CPL<- c(abs.lat.CPL, abs.form.CPL, abs.mex.CPL)
abs.res.PreDL <- c(abs.lat.PreDL, abs.form.PreDL, abs.mex.PreDL)
abs.res.DbL <- c(abs.lat.DbL, abs.form.DbL, abs.mex.DbL)
abs.res.HL<- c(abs.lat.HL, abs.form.HL, abs.mex.HL)
abs.res.HD<- c(abs.lat.HD, abs.form.HD, abs.mex.HD)
abs.res.HW <- c(abs.lat.HW, abs.form.HW, abs.mex.HW)
abs.res.SnL <- c(abs.lat.SnL, abs.form.SnL, abs.mex.SnL)
abs.res.OL <- c(abs.lat.OL, abs.form.OL, abs.mex.OL)
raw2 <- cbind(raw1, abs.res.D, abs.res.P1, abs.res.P1.R, abs.res.LLSC, abs.res.SBLL, abs.res.BD, abs.res.CPD, abs.res.CPL, abs.res.PreDL, abs.res.DbL, abs.res.HL, abs.res.HD, abs.res.HW, abs.res.SnL, abs.res.OL)Residual Comparisons
- STEP FOUR: plot the mean of the |residuals| for both species, for all traits influenced by body size
library(ggbeeswarm)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionggplot(raw2, aes(SPP, abs.res.D)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
scatter_violin <- ggplot(data=raw2, aes(x=SPP, y=abs.res.D)) +
geom_violin(trim = FALSE) +
stat_summary(
fun.data = "mean_sdl", fun.args = list(mult = 1),
geom = "pointrange", color = "black"
)
print(scatter_violin)
scatter_violin1 <- ggplot(data=raw2, aes(x=SPP, y=abs.res.D)) +
geom_violin(trim = FALSE) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="crossbar", fill="red", width=0.03)
print(scatter_violin1)
ggplot(raw2, aes(SPP, abs.res.P1)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.P1.R)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3) 
ggplot(raw2, aes(SPP, abs.res.LLSC)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.SBLL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.BD)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.CPD)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.CPL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3) 
ggplot(raw2, aes(SPP, abs.res.PreDL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.DbL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.HL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.HD)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.HW)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.SnL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(raw2, aes(SPP, abs.res.OL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
Comparing variation
Variance tests
- t-test for residuals, continuous (do an f-test too, might be cool)
- residual discrete will go through glmer
- raw discrete will go through f-test (no idea how to do this otherwise), and results will be compared to visualizations to check for discrepencies.
(note: did non-parametric instead of transforming, but Mike said to transform, so I copied that work to the ‘morphology-analysis-final’ Rmd).
F-test on residuals doesn’t make much sense; the residuals themselves are representative of the variation present, as they are the distance from the mean. Therefore, F-test on residuals is like variance of the variance. Instead, I have to do a t-test on the absolute value of the residuals. In this sense, we want to see if the mean of the absolute residuals is higher or lower for asexual species–is the average amount of variation higher or lower for this trait? Based on the regressions, if the trait was influenced by body size, I will perform a t-test on the absolute value of the residuals. If the trait was not influenced by body size, I will perform an F-test of variance on the raw data.
Quick results summary: For the F-test on raw data, none of the traits were significantly different (P2L/R, A, SBDF, FLA). For the t-tests on residuals, the only significant traits are left pectoral (), right pectoral (lat>form), scales above lateral line (), scales below lateral line (form>lat), and head length ().
- will do two-tailed and check out the residual means to infer direction; for traits in which we use raw data, a one-tailed f-test will be perfomed in both direction to determine which species is varying more. We will also visulize the variation using a histogram to confirm direction results.(1) Continuous, residuals
- will do two-tailed and check out the means to infer direction (see beginning for trait means w/o body correction)
- this will be for the traits that did have a significant regression compared to SL; will be using the absolute value residuals.
- For continuous traits, we will be using the transformed data.
T-tests
##
## Welch Two Sample t-test
##
## data: abs.lat.BD and abs.form.BD
## t = 0.16042, df = 287.17, p-value = 0.8727
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.007699582 0.009066010
## sample estimates:
## mean of x mean of y
## 0.04778326 0.04710005##
## Welch Two Sample t-test
##
## data: abs.lat.CPD and abs.form.CPD
## t = 2.1468, df = 282.5, p-value = 0.03266
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 0.0005394989 0.0124439196
## sample estimates:
## mean of x mean of y
## 0.03695739 0.03046568##
## Welch Two Sample t-test
##
## data: abs.lat.CPD and abs.form.CPD
## t = 2.1468, df = 282.5, p-value = 0.01633
## alternative hypothesis: true difference in means is greater than 0
## 95 percent confidence interval:
## 0.001501493 Inf
## sample estimates:
## mean of x mean of y
## 0.03695739 0.03046568##
## Welch Two Sample t-test
##
## data: abs.lat.CPD and abs.form.CPD
## t = 2.1468, df = 282.5, p-value = 0.9837
## alternative hypothesis: true difference in means is less than 0
## 95 percent confidence interval:
## -Inf 0.01148193
## sample estimates:
## mean of x mean of y
## 0.03695739 0.03046568##
## Welch Two Sample t-test
##
## data: abs.lat.CPL and abs.form.CPL
## t = -0.015652, df = 291.31, p-value = 0.9875
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.007002590 0.006892088
## sample estimates:
## mean of x mean of y
## 0.03732998 0.03738523##
## Welch Two Sample t-test
##
## data: abs.lat.PreDL and abs.form.PreDL
## t = 0.37319, df = 279.25, p-value = 0.7093
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.003813117 0.005597125
## sample estimates:
## mean of x mean of y
## 0.02707836 0.02618636##
## Welch Two Sample t-test
##
## data: abs.lat.DbL and abs.form.DbL
## t = 0.19254, df = 284.63, p-value = 0.8475
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.00883155 0.01074664
## sample estimates:
## mean of x mean of y
## 0.05163660 0.05067905##
## Welch Two Sample t-test
##
## data: abs.lat.HL and abs.form.HL
## t = -0.90175, df = 296.34, p-value = 0.3679
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.010530987 0.003912795
## sample estimates:
## mean of x mean of y
## 0.03588147 0.03919057##
## Welch Two Sample t-test
##
## data: abs.lat.HD and abs.form.HD
## t = -0.00099329, df = 267.38, p-value = 0.9992
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.007275651 0.007268313
## sample estimates:
## mean of x mean of y
## 0.03506907 0.03507274##
## Welch Two Sample t-test
##
## data: abs.lat.HW and abs.form.HW
## t = -1.6871, df = 297.98, p-value = 0.09263
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.0116134871 0.0008923157
## sample estimates:
## mean of x mean of y
## 0.03208151 0.03744209##
## Welch Two Sample t-test
##
## data: abs.lat.SnL and abs.form.SnL
## t = -0.38886, df = 295.99, p-value = 0.6977
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.006851803 0.004590862
## sample estimates:
## mean of x mean of y
## 0.03208694 0.03321741##
## Welch Two Sample t-test
##
## data: abs.lat.OL and abs.form.OL
## t = 1.318, df = 152.51, p-value = 0.1895
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -4.062607e-18 2.034670e-17
## sample estimates:
## mean of x mean of y
## 1.416081e-17 6.018764e-18(2) Discrete, residuals
Logan suggested doing a glm with poisson distribution (because it is count data) for these relationships. I originally performed Mann Whitney U tests, so will also include that. Overall, results don’t differ even though exact values are slightly different.
Had to remove the poisson part, becausethe residuals didn’t meet the non-integer requirement for poisson (it freaked out and took forever to load).
GLMs
raw3 <- raw2[raw2$SPP !="p.mexicana", ]
glm_D <- glm(abs.res.D~SPP, data=raw3)
print(summary(glm_D), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.D ~ SPP, data = raw3)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.5474 -0.3920 -0.1006 0.3170 1.6061
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.56682 0.03151 17.989 <2e-16 ***
## SPPp.latipinna -0.02927 0.04715 -0.621 0.535
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1648051)
##
## Null deviance: 49.175 on 299 degrees of freedom
## Residual deviance: 49.112 on 298 degrees of freedom
## AIC: 314.46
##
## Number of Fisher Scoring iterations: 2D.aov <- aov(glm_D)
summary(D.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 1 0.06 0.06351 0.385 0.535
## Residuals 298 49.11 0.16481glm_P1 <- glm(abs.res.P1~SPP, data=raw3)
print(summary(glm_P1), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.P1 ~ SPP, data = raw3)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.5006 -0.3420 -0.1328 0.2626 2.9146
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.48436 0.03362 14.406 <2e-16 ***
## SPPp.latipinna 0.06231 0.05031 1.238 0.217
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1876585)
##
## Null deviance: 56.210 on 299 degrees of freedom
## Residual deviance: 55.922 on 298 degrees of freedom
## AIC: 353.42
##
## Number of Fisher Scoring iterations: 2P1.aov <- aov(glm_P1)
summary(P1.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 1 0.29 0.2878 1.534 0.217
## Residuals 298 55.92 0.1877glm_P1.R <- glm(abs.res.P1.R~SPP, data=raw3)
print(summary(glm_P1.R), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.P1.R ~ SPP, data = raw3)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.5705 -0.2933 -0.1676 0.1833 1.6538
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.42420 0.03055 13.887 < 2e-16 ***
## SPPp.latipinna 0.15574 0.04571 3.407 0.000746 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1548898)
##
## Null deviance: 47.955 on 299 degrees of freedom
## Residual deviance: 46.157 on 298 degrees of freedom
## AIC: 295.84
##
## Number of Fisher Scoring iterations: 2P1.R.aov <- aov(glm_P1.R)
summary(P1.R.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 1 1.80 1.7983 11.61 0.000746 ***
## Residuals 298 46.16 0.1549
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1glm_LLSC <- glm(abs.res.LLSC~SPP, data=raw3)
print(summary(glm_LLSC), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.LLSC ~ SPP, data = raw3)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.9022 -0.4792 -0.2428 0.4210 3.5649
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.90388 0.05395 16.755 <2e-16 ***
## SPPp.latipinna -0.13748 0.08072 -1.703 0.0896 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4830762)
##
## Null deviance: 145.36 on 299 degrees of freedom
## Residual deviance: 143.96 on 298 degrees of freedom
## AIC: 637.08
##
## Number of Fisher Scoring iterations: 2LLSC.aov <- aov(glm_LLSC)
summary(LLSC.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 1 1.4 1.4013 2.901 0.0896 .
## Residuals 298 144.0 0.4831
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(3) Discrete, raw
EVEN THOUGH THESE ARE DISCRETE, NO IDEA WHAT ELSE TO DO WITH THEM (glmm on raw data will just compare means). Did both F-test and Levene’s test. Get the same overall results, albeit slightly different values. Might go with Levene’s since it is good with non-normal data.
This will only be for the traits that did not have a significant regression compared to SL (so P2s, A, SALL, SBDF, and FLA); none of these traits were transformed, so just doing raw for now.
Levene’s test
Still only performing this on the traits that did NOT vary with SL (P2L/R, A, SALL, SBLL [between sail and amz only], SBDF, FLA).
library(car)## Loading required package: carData##
## Attaching package: 'car'## The following object is masked from 'package:dplyr':
##
## recodelibrary(carData)
(LT_P2L <- leveneTest(P2.L~SPP, data=raw3)) #gives nothing since it's all the same value## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 NaN NaN
## 298(LT_P2R <- leveneTest(P2.R~SPP, data=raw3)) #same as above## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 NaN NaN
## 298(LT_A <- leveneTest(A~SPP, data=raw3)) ## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.3962 0.5295
## 298(LT_SALL <- leveneTest(SALL~SPP, data=raw3))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 3.7062 0.05516 .
## 298
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(LT_SBLL <- leveneTest(SBLL~SPP, data=raw3))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 3.36 0.0678 .
## 298
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(LT_SBDF <- leveneTest(SBDF~SPP, data=raw3))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.0081 0.9283
## 298(LT_FLA <- leveneTest(FLA~SPP, data=raw3))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 2.7164 0.1004
## 298Summary of variance results
WHY WON’T THIS TABLE WORK!!!!!!!!
average.table <- matrix(c(MW_D\(p.value, mean(abs.lat.D, na.rm = TRUE), mean(abs.form.D, na.rm = TRUE), MW_P1\)p.value, mean(abs.lat.P1, na.rm = TRUE), mean(abs.form.P1, na.rm = TRUE), LT_P2R\("Pr(>F)", mean(lat\)P2.R, na.rm = TRUE), mean(form\(P2.R, na.rm = TRUE), LT_P2R\)“Pr(>F)”, mean(lat\(P2.L, na.rm = TRUE), mean(form\)P2.L, na.rm = TRUE), LT_A\("Pr(>F)", mean(lat\)A, na.rm = TRUE), mean(form\(A, na.rm = TRUE), MW_P1R\)p.value, mean(abs.lat.P1.R, na.rm = TRUE), mean(abs.form.P1.R, na.rm = TRUE), MW_LLSC\(p.value, mean(abs.lat.LLSC, na.rm = TRUE), mean(abs.form.LLSC, na.rm = TRUE), LT_SALL\)“Pr(>F)”, mean(lat\(SALL, na.rm = TRUE), mean(form\)SALL, na.rm = TRUE), LT_SBLL\("Pr(>F)", mean(abs.lat.SBLL, na.rm = TRUE), mean(abs.form.SBLL, na.rm = TRUE), LT_SBDF\)“Pr(>F)”, mean(lat\(SBDF, na.rm = TRUE), mean(form\)SBDF, na.rm = TRUE), ttest.abs.BD\(p.value, mean(abs.lat.BD, na.rm = TRUE), mean(abs.form.BD, na.rm = TRUE), ttest.abs.CPD\)p.value, mean(abs.lat.CPD, na.rm = TRUE), mean(abs.form.CPD, na.rm = TRUE), ttest.abs.CPL\(p.value, mean(abs.lat.CPL, na.rm = TRUE), mean(abs.form.CPL, na.rm = TRUE), ttest.abs.PreDL\)p.value, mean(abs.lat.PreDL, na.rm = TRUE), mean(abs.form.PreDL, na.rm = TRUE), ttest.abs.DbL\(p.value, mean(abs.lat.DbL, na.rm = TRUE), mean(abs.form.DbL, na.rm = TRUE), ttest.abs.HL\)p.value, mean(abs.lat.HL, na.rm = TRUE), mean(abs.form.HL, na.rm = TRUE), ttest.abs.HD\(p.value, mean(abs.lat.HD, na.rm = TRUE), mean(abs.form.HD, na.rm = TRUE), ttest.abs.HW\)p.value, mean(abs.lat.HW, na.rm = TRUE), mean(abs.form.HW, na.rm = TRUE), ttest.abs.SnL\(p.value, mean(abs.lat.SnL, na.rm = TRUE), mean(abs.form.SnL, na.rm = TRUE), ttest.abs.OL\)p.value, mean(abs.lat.OL, na.rm = TRUE), mean(abs.form.OL, na.rm = TRUE), LT_FLA\("Pr(>F)", mean(lat\)FLA, na.rm = TRUE), mean(form$FLA, na.rm = TRUE)), ncol=3, byrow=TRUE)
colnames(average.table)<- c(“p-value for variance”, “lat mean”, “form mean”)
rownames(average.table) <- c(“dorsal rays”, “L pect rays”, “R pelvic rays”, ”L pelvic rays”, “Anal rays”, “R pect rays”, ”lat line scales”, ”scales above LL”, ”scales below LL”, ”scales before dor”, “body dep”, “peduncle dep”, “peduncle leng”, “pre-dorsal”, “dorsal base”, “head length”, “head depth”, “head width”, “snout leng”, “orbital leng”, “fluct. asymmetries”)
average.table
Variance plots
plot_multi_histogram <- function(df, feature, label_column) {
plt <- ggplot(df, aes(x=eval(parse(text=feature)), fill=eval(parse(text=label_column)))) +
geom_histogram(bins=10, alpha=0.4, position="identity", aes(y = ..density..), color="black") +
geom_density(alpha=0.2) +
labs(x=feature, y = "Density")
plt + guides(fill=guide_legend(title=label_column))
}
plot_multi_histogram(raw3, "abs.res.CPD", "SPP")## Warning: The dot-dot notation (`..density..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(density)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
plot_multi_histogram(raw3, "abs.res.P1.R", "SPP")
plot_multi_histogram(raw3, "SALL", "SPP")
PCA analysis
PCA
LOGAN: CHECK THAT EACH VARIABLES IS NEAR NORMALLY DISTRIBUTED. IF NOT, LOG TRANSFORM BEFORE PCA. ALSO CHECK THAT PCA CALCULATES Z SCORES AND PLOTS BASED ON THAT; IF NOT CONVERT TO Z SCORES THEN RUN PCA.
In this analysis, I will compare the principle components after centering and scaling the data. A PCA analysis will help us determine what aspects of morphology influence the variation in our data the most without worrying about differences in scales/measurements. Currently, data consists of 116 Sailfin and 186 Amazon.
Chart
(chart <- matrix(c("Variable chart:", "D: dorsal ray count", "P1: left pectoral ray count", "P2.R: right pelvic rays", "P2.L: left pelvic rays", "A: anal rays", "P1.R: right pectoral ray count", "LLSC: lateral line scale count", "SALL: scales above lateral line", "SBLL: scales below lateral line", "SBDF: scales before dorsal fin", "TL: total length", "SL: standard length", "BD: body depth", "CPD: caudal peduncle depth", "CPL: caudal peduncle length", "PreDL: pre-dorsal length", "DbL: dorsal base length", "HL/HW/HD: head length/width/depth", "SnL: snout length", "OL: ocular length"), ncol=1, byrow=TRUE))## [,1]
## [1,] "Variable chart:"
## [2,] "D: dorsal ray count"
## [3,] "P1: left pectoral ray count"
## [4,] "P2.R: right pelvic rays"
## [5,] "P2.L: left pelvic rays"
## [6,] "A: anal rays"
## [7,] "P1.R: right pectoral ray count"
## [8,] "LLSC: lateral line scale count"
## [9,] "SALL: scales above lateral line"
## [10,] "SBLL: scales below lateral line"
## [11,] "SBDF: scales before dorsal fin"
## [12,] "TL: total length"
## [13,] "SL: standard length"
## [14,] "BD: body depth"
## [15,] "CPD: caudal peduncle depth"
## [16,] "CPL: caudal peduncle length"
## [17,] "PreDL: pre-dorsal length"
## [18,] "DbL: dorsal base length"
## [19,] "HL/HW/HD: head length/width/depth"
## [20,] "SnL: snout length"
## [21,] "OL: ocular length"Loadings
library(stringr)
raw1a <- subset(raw1, select = -c(17:18) ) #took out P2R and L since they don't vary at all
raw1a <- subset(raw1a, select=-c(34:49))#took out transformed values
raw1a <- raw1a[raw1a$SPP !="p.mexicana", ]
#PCA <- prcomp(raw1a[, 15:32], center=TRUE, scale. = TRUE) #includes all but pelvic traits, since they are the same in all species WILL SCALE/CENTER DATA ON MY OWN, LOGAN SAID IT IS NOT ALWAYS DOING IT FOR YOU EVEN WHEN YOU SPECIFY
z.scores <- scale(raw1a[, 15:33], center = TRUE, scale = TRUE)
raw1a <- cbind(raw1a, z.scores)
colnames(raw1a)[34:52] <- str_c( "z_", colnames(raw1a)[15:33] )
PCA <- prcomp(raw1a[, 34:52])
summary(PCA)## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6 PC7
## Standard deviation 3.0628 1.6531 1.14425 1.03347 0.98389 0.92628 0.89325
## Proportion of Variance 0.4937 0.1438 0.06891 0.05621 0.05095 0.04516 0.04199
## Cumulative Proportion 0.4937 0.6375 0.70647 0.76268 0.81363 0.85879 0.90078
## PC8 PC9 PC10 PC11 PC12 PC13 PC14
## Standard deviation 0.63539 0.56651 0.54153 0.50391 0.4226 0.34766 0.30647
## Proportion of Variance 0.02125 0.01689 0.01543 0.01336 0.0094 0.00636 0.00494
## Cumulative Proportion 0.92203 0.93892 0.95435 0.96772 0.9771 0.98348 0.98842
## PC15 PC16 PC17 PC18 PC19
## Standard deviation 0.26119 0.22675 0.22086 0.20498 0.09759
## Proportion of Variance 0.00359 0.00271 0.00257 0.00221 0.00050
## Cumulative Proportion 0.99201 0.99472 0.99729 0.99950 1.00000(loadings <- PCA$rotation[, 1:5])## PC1 PC2 PC3 PC4 PC5
## z_D -0.023125918 0.512339587 0.274296565 0.1004003051 0.06565042
## z_P1 -0.021172287 -0.400745232 0.383033685 0.2535355028 0.01970006
## z_A -0.002691019 -0.067691278 0.577547144 0.1247870940 0.17951684
## z_P1.R -0.036159356 -0.424337470 0.298509581 0.3147900237 0.03199074
## z_LLSC -0.080066865 0.274308397 0.251844804 0.0003399013 -0.31938239
## z_SALL -0.050532616 -0.051296850 -0.486844238 0.6498672092 0.09308622
## z_SBLL -0.057856335 0.108431193 0.058099357 0.3413704601 -0.82866776
## z_SBDF -0.012995775 -0.409590786 -0.106164211 -0.3912320042 -0.38140946
## z_SL -0.321020234 -0.055330649 0.006015599 -0.0470335950 0.01203157
## z_BD -0.311442077 0.090305116 -0.004141675 0.0106665883 0.02609686
## z_CPD -0.317091552 -0.007465525 -0.010294404 -0.0008030631 0.04637472
## z_CPL -0.309216131 -0.069705738 0.021123514 -0.0006747957 0.02689966
## z_PreDL -0.299230116 -0.185161125 -0.042850750 -0.0702738205 -0.02769696
## z_DbL -0.263082815 0.281326647 0.099848288 0.0405728383 0.07710593
## z_HL -0.286373286 -0.053376922 0.070063685 -0.2068118584 -0.03298241
## z_HD -0.311950929 0.025861089 -0.028257174 -0.0978219713 0.01977228
## z_HW -0.312983506 -0.027005739 -0.102965431 0.0624696740 0.02652160
## z_SnL -0.269756709 -0.018795144 -0.104316832 0.2067219100 0.08042476
## z_OL -0.283210589 0.026602769 0.026187203 -0.1056545356 -0.01248445sorted.loadings.1 <- loadings[order(loadings[, 1]), 1]
myTitle <- "Loadings Plot for PC1"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.1, main=myTitle, xlab=myXlab, cex=1.5, col="red")
sorted.loadings.2 <- loadings[order(loadings[, 2]), 2]
myTitle <- "Loadings Plot for PC2"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.2, main=myTitle, xlab=myXlab, cex=1.5, col="red")
sorted.loadings.3 <- loadings[order(loadings[, 3]), 3]
myTitle <- "Loadings Plot for PC3"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.3, main=myTitle, xlab=myXlab, cex=1.5, col="red")
VM_PCA <- varimax(PCA$rotation[, 1:3])
VM_PCA## $loadings
##
## Loadings:
## PC1 PC2 PC3
## z_D 0.579
## z_P1 -0.170 0.526
## z_A 0.209 0.542
## z_P1.R -0.228 0.463
## z_LLSC 0.368
## z_SALL -0.263 -0.405
## z_SBLL 0.130
## z_SBDF -0.406
## z_SL -0.324
## z_BD -0.298 0.120
## z_CPD -0.316
## z_CPL -0.313
## z_PreDL -0.321 -0.140
## z_DbL -0.220 0.329
## z_HL -0.285
## z_HD -0.308
## z_HW -0.321
## z_SnL -0.277
## z_OL -0.275
##
## PC1 PC2 PC3
## SS loadings 1.000 1.000 1.000
## Proportion Var 0.053 0.053 0.053
## Cumulative Var 0.053 0.105 0.158
##
## $rotmat
## [,1] [,2] [,3]
## [1,] 0.99025106 -0.1389062 -0.01038808
## [2,] 0.11785093 0.8752334 -0.46912433
## [3,] 0.07425625 0.4633266 0.88307103library(factoextra)## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa(eig.val <- get_eigenvalue(PCA))## eigenvalue variance.percent cumulative.variance.percent
## Dim.1 9.380664534 49.37191860 49.37192
## Dim.2 2.732862474 14.38348671 63.75541
## Dim.3 1.309310206 6.89110635 70.64651
## Dim.4 1.068052941 5.62133127 76.26784
## Dim.5 0.968046113 5.09497954 81.36282
## Dim.6 0.857998424 4.51578118 85.87860
## Dim.7 0.797895874 4.19945197 90.07806
## Dim.8 0.403714450 2.12481290 92.20287
## Dim.9 0.320936708 1.68914057 93.89201
## Dim.10 0.293253289 1.54343836 95.43545
## Dim.11 0.253927815 1.33646218 96.77191
## Dim.12 0.178592564 0.93996086 97.71187
## Dim.13 0.120864150 0.63612710 98.34800
## Dim.14 0.093923089 0.49433204 98.84233
## Dim.15 0.068220281 0.35905411 99.20138
## Dim.16 0.051415517 0.27060799 99.47199
## Dim.17 0.048780881 0.25674148 99.72873
## Dim.18 0.042016114 0.22113744 99.94987
## Dim.19 0.009524576 0.05012935 100.00000ind <- get_pca_ind(PCA)
head(ind$coord[,1:4])## Dim.1 Dim.2 Dim.3 Dim.4
## 1 -3.79218614 1.1636137 0.1800926 -0.08963595
## 2 -3.78917831 0.9596244 1.3893620 -2.02646387
## 3 -7.11228308 1.9828091 -0.7472805 -0.85903835
## 4 0.73532897 1.9695620 -1.5908193 0.72014647
## 5 -2.08118776 2.6499339 -0.3743038 -0.54991733
## 7 0.02419752 2.0659483 -1.8182757 1.04810458raw1.p <- raw1[raw1$SPP !="p.mexicana", ]
raw1.p <- cbind(raw1.p, ind$coord[,1:4])Post PCA tests
lat.p <- raw1.p[raw1.p$SPP == "p.latipinna",]
form.p <- raw1.p[raw1.p$SPP == "p.formosa",]
(pc1 <- t.test(lat.p$Dim.1, form.p$Dim.1, alternative = "two.sided"))##
## Welch Two Sample t-test
##
## data: lat.p$Dim.1 and form.p$Dim.1
## t = -0.015658, df = 295.09, p-value = 0.9875
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.6980978 0.6870769
## sample estimates:
## mean of x mean of y
## -0.003049100 0.002461322(pc2 <- t.test(lat.p$Dim.2, form.p$Dim.2, alternative = "two.sided"))##
## Welch Two Sample t-test
##
## data: lat.p$Dim.2 and form.p$Dim.2
## t = 31.156, df = 284.18, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 2.720668 3.087623
## sample estimates:
## mean of x mean of y
## 1.606961 -1.297185(pc3 <- t.test(lat.p$Dim.3, form.p$Dim.3, alternative = "two.sided"))##
## Welch Two Sample t-test
##
## data: lat.p$Dim.3 and form.p$Dim.3
## t = 2.7177, df = 282.06, p-value = 0.00698
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 0.09875662 0.61762364
## sample estimates:
## mean of x mean of y
## 0.1981985 -0.1599916(pc1V <- leveneTest(Dim.1~SPP, data=raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 1.9292 0.1659
## 298(pc2V <- leveneTest(Dim.2~SPP, data=raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.0258 0.8724
## 298(pc3V <- leveneTest(Dim.3~SPP, data=raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.0056 0.9404
## 298Plots
PCA 1v2
library(AMR)
library(ggplot2)
library(ggfortify)
plot1<- autoplot(PCA, data = raw1a, colour='SPP', loadings=FALSE, loadings.label=FALSE, frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plot1
PCA 2v3
plot5<- autoplot(PCA, x=2, y=3, data = raw1a, colour='SPP', loadings=FALSE, loadings.label=FALSE, frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plot5
Tampico population
(1) Continuous, residuals
- will do two-tailed and check out the means to infer direction (see beginning for trait means w/o body correction)
- this will be for the traits that did have a significant regression compared to SL; will be using the absolute value residuals.
- For continuous traits, we will be using the transformed data.
ANOVAs
tampico <- raw2[raw2$COUNTY.ST == "Tamaulipas/MX",]
lat.mx <- tampico[tampico$SPP == "p.latipinna",]
form.mx <- tampico[tampico$SPP == "p.formosa",]
mex.mx <- tampico[tampico$SPP == "p.mexicana",]
MX.BD <- aov(abs.res.BD~SPP, data=tampico)
summary(MX.BD)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.01201 0.006007 5.421 0.006 **
## Residuals 89 0.09861 0.001108
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.CPD <- aov(abs.res.CPD~SPP, data=tampico)
summary(MX.CPD)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00190 0.0009478 2.121 0.126
## Residuals 89 0.03977 0.0004468MX.CPL <- aov(abs.res.CPL~SPP, data=tampico)
summary(MX.CPL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00424 0.0021221 4.029 0.0211 *
## Residuals 89 0.04688 0.0005267
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.PreDL <- aov(abs.res.PreDL~SPP, data=tampico)
summary(MX.PreDL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.0248 0.012406 2.978 0.056 .
## Residuals 89 0.3708 0.004166
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.DbL <- aov(abs.res.DbL~SPP, data=tampico)
summary(MX.DbL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00329 0.001645 1.404 0.251
## Residuals 89 0.10427 0.001172MX.HL <- aov(abs.res.HL~SPP, data=tampico)
summary(MX.HL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.01706 0.008529 11.73 3e-05 ***
## Residuals 89 0.06470 0.000727
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.HD <- aov(abs.res.HD~SPP, data=tampico)
summary(MX.HD)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00325 0.0016271 2.471 0.0903 .
## Residuals 89 0.05861 0.0006585
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.HW <- aov(abs.res.HW~SPP, data=tampico)
summary(MX.HW)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00426 0.0021285 3.921 0.0233 *
## Residuals 89 0.04831 0.0005429
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.SnL <- aov(abs.res.SnL~SPP, data=tampico)
summary(MX.SnL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00975 0.004874 3.616 0.0309 *
## Residuals 89 0.11996 0.001348
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.OL <- aov(abs.res.OL~SPP, data=tampico)
summary(MX.OL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 1.990e-35 9.948e-36 1.326 0.271
## Residuals 89 6.676e-34 7.501e-36(2) Discrete, residuals
Logan suggested doing a glm with poisson distribution (because it is count data) for these relationships. I originally performed Mann Whitney U tests, so will also include that. Overall, results don’t differ even though exact values are slightly different.
Had to remove the poisson part, becausethe residuals didn’t meet the non-integer requirement for poisson (it freaked out and took forever to load).
GLMs
MX.glm_D <- glm(abs.res.D~SPP, data=tampico)
print(summary(MX.glm_D), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.D ~ SPP, data = tampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.48224 -0.26090 -0.11501 0.08735 1.41666
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.50169 0.06279 7.990 4.55e-12 ***
## SPPp.latipinna -0.09573 0.08598 -1.113 0.268536
## SPPp.mexicana -0.33597 0.08598 -3.908 0.000181 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.110386)
##
## Null deviance: 11.6553 on 91 degrees of freedom
## Residual deviance: 9.8244 on 89 degrees of freedom
## AIC: 63.288
##
## Number of Fisher Scoring iterations: 2MX.D.aov <- aov(MX.glm_D)
summary(MX.D.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 1.831 0.9155 8.293 0.000498 ***
## Residuals 89 9.824 0.1104
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.glm_P1 <- glm(abs.res.P1~SPP, data=tampico)
print(summary(MX.glm_P1), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.P1 ~ SPP, data = tampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.5127 -0.3543 -0.1120 0.1266 2.8773
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.52162 0.09641 5.411 5.25e-07 ***
## SPPp.latipinna 0.10544 0.13201 0.799 0.427
## SPPp.mexicana 0.04702 0.13201 0.356 0.723
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.2602401)
##
## Null deviance: 23.329 on 91 degrees of freedom
## Residual deviance: 23.161 on 89 degrees of freedom
## AIC: 142.19
##
## Number of Fisher Scoring iterations: 2MX.P1.aov <- aov(MX.glm_P1)
summary(MX.P1.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.168 0.0839 0.322 0.725
## Residuals 89 23.161 0.2602MX.glm_P1.R <- glm(abs.res.P1.R~SPP, data=tampico)
print(summary(MX.glm_P1.R), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.P1.R ~ SPP, data = tampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.4554 -0.2619 -0.1498 0.1629 0.9018
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.35672 0.06972 5.116 1.78e-06 ***
## SPPp.latipinna 0.22375 0.09547 2.344 0.0213 *
## SPPp.mexicana 0.10200 0.09547 1.068 0.2882
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1361049)
##
## Null deviance: 12.867 on 91 degrees of freedom
## Residual deviance: 12.113 on 89 degrees of freedom
## AIC: 82.556
##
## Number of Fisher Scoring iterations: 2MX.P1.R.aov <- aov(MX.glm_P1.R)
summary(MX.P1.R.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.754 0.3770 2.77 0.0681 .
## Residuals 89 12.113 0.1361
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.glm_LLSC <- glm(abs.res.LLSC~SPP, data=tampico)
print(summary(MX.glm_LLSC), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.LLSC ~ SPP, data = tampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.5884 -0.2474 -0.1354 0.1936 1.0364
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.68514 0.07721 8.873 6.87e-14 ***
## SPPp.latipinna -0.18794 0.10573 -1.778 0.0789 .
## SPPp.mexicana -0.24164 0.10573 -2.286 0.0247 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1669345)
##
## Null deviance: 15.802 on 91 degrees of freedom
## Residual deviance: 14.857 on 89 degrees of freedom
## AIC: 101.34
##
## Number of Fisher Scoring iterations: 2MX.LLSC.aov <- aov(MX.glm_LLSC)
summary(MX.LLSC.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.945 0.4724 2.83 0.0643 .
## Residuals 89 14.857 0.1669
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.glm_SBLL <- glm(abs.res.SBLL~SPP, data=tampico)
print(summary(MX.glm_SBLL), show.residuals=TRUE)##
## Call:
## glm(formula = abs.res.SBLL ~ SPP, data = tampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.27001 -0.17228 -0.09092 -0.01136 0.85609
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.16989 0.05341 3.181 0.00202 **
## SPPp.latipinna 0.11045 0.07313 1.510 0.13452
## SPPp.mexicana 0.10144 0.07313 1.387 0.16890
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.07987104)
##
## Null deviance: 7.3284 on 91 degrees of freedom
## Residual deviance: 7.1085 on 89 degrees of freedom
## AIC: 33.519
##
## Number of Fisher Scoring iterations: 2MX.SBLL.aov <- aov(MX.glm_SBLL)
summary(MX.SBLL.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.220 0.10996 1.377 0.258
## Residuals 89 7.109 0.07987(3) Discrete, raw
EVEN THOUGH THESE ARE DISCRETE, NO IDEA WHAT ELSE TO DO WITH THEM (glmm on raw data will just compare means). Did both F-test and Levene’s test. Get the same overall results, albeit slightly different values. Might go with Levene’s since it is good with non-normal data.
This will only be for the traits that did not have a significant regression compared to SL (so P2s, A, SALL, SBDF, and FLA); none of these traits were transformed, so just doing raw for now.
Levene’s test
Still only performing this on the traits that did NOT vary with SL (P2L/R, A, SALL, SBLL [between sail and amz only], SBDF, FLA).
library(car)
library(carData)
(LT_P2L <- leveneTest(P2.L~SPP, data=tampico)) #gives nothing since it's all the same value## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 NaN NaN
## 89(LT_P2R <- leveneTest(P2.R~SPP, data=tampico)) #same as above## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 NaN NaN
## 89(LT_A <- leveneTest(A~SPP, data=tampico)) ## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 0.2442 0.7838
## 89(LT_SALL <- leveneTest(SALL~SPP, data=tampico))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 0.9029 0.4091
## 89(LT_SBDF <- leveneTest(SBDF~SPP, data=tampico))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 3.525 0.03363 *
## 89
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(LT_FLA <- leveneTest(FLA~SPP, data=tampico))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 4.0766 0.02023 *
## 89
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1pca Loadings- TAMPICO
library(stringr)
rawMX <- subset(tampico, select = -c(17:18) ) #took out P2R and L since they don't vary at all
rawMX <- subset(rawMX, select=-c(37:66))#took out transformed values
MXz.scores <- scale(rawMX[, 15:34], center = TRUE, scale = TRUE)
rawMX <- cbind(rawMX, MXz.scores)
colnames(rawMX)[35:53] <- str_c( "z_", colnames(rawMX)[15:34] )## Warning in colnames(rawMX)[35:53] <- str_c("z_", colnames(rawMX)[15:34]):
## number of items to replace is not a multiple of replacement lengthPCA.MX <- prcomp(rawMX[, 35:53])
summary(PCA.MX)## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6 PC7
## Standard deviation 2.6039 2.1114 1.14769 1.05280 0.96889 0.84960 0.66700
## Proportion of Variance 0.3984 0.2619 0.07739 0.06512 0.05515 0.04241 0.02614
## Cumulative Proportion 0.3984 0.6603 0.73767 0.80279 0.85794 0.90035 0.92649
## PC8 PC9 PC10 PC11 PC12 PC13 PC14
## Standard deviation 0.55015 0.45802 0.41815 0.38344 0.3250 0.3116 0.27079
## Proportion of Variance 0.01778 0.01233 0.01027 0.00864 0.0062 0.0057 0.00431
## Cumulative Proportion 0.94428 0.95660 0.96687 0.97551 0.9817 0.9874 0.99173
## PC15 PC16 PC17 PC18 PC19
## Standard deviation 0.2510 0.23088 0.15580 0.01402 0.004977
## Proportion of Variance 0.0037 0.00313 0.00143 0.00001 0.000000
## Cumulative Proportion 0.9954 0.99856 0.99999 1.00000 1.000000(loadings.MX <- PCA.MX$rotation[, 1:5])## PC1 PC2 PC3 PC4 PC5
## z_D 0.020292983 0.052836812 -0.02070947 0.0033943535 -0.0046671865
## z_P1 0.019287901 0.005560760 -0.00299230 0.0009788705 0.0030452126
## z_A -0.015837267 0.439408380 -0.07968296 -0.1588686401 -0.0022732785
## z_P1.R -0.059561224 -0.371107907 -0.23164529 -0.0841906594 -0.0599929730
## z_LLSC 0.007210466 -0.042501209 -0.49421578 -0.6727355449 0.1546260066
## z_SALL -0.007703310 -0.409055540 -0.15581946 0.1353632450 -0.1156061453
## z_SBLL -0.048996480 -0.187203545 0.25586329 -0.6230358041 -0.0819163622
## z_SBDF 0.026326120 0.003950048 0.57748795 -0.1303078791 0.6614330454
## z_SL -0.060010348 -0.081153159 -0.45018520 0.2015979056 0.7067777650
## z_BD 0.004059602 -0.435135862 0.02513028 0.1135531214 0.0423118292
## z_CPD 0.369299431 -0.103955842 0.02773493 -0.0143954079 -0.0006310322
## z_CPL 0.346870088 0.050511403 0.02509499 -0.1544670506 0.0361263833
## z_PreDL 0.360817711 0.028177367 -0.13363561 0.0745541568 0.0423355733
## z_DbL 0.337313393 -0.162928978 0.04540213 -0.0187725868 -0.0609050318
## z_HL 0.317186283 -0.190555849 0.10185043 0.0316746529 0.0334615458
## z_HD 0.159207805 0.396581314 -0.17451042 0.0199421702 -0.0375038544
## z_HW 0.336770251 0.088449495 -0.05544434 0.0492636989 0.0568740605
## z_SnL 0.351395161 0.112503836 -0.05698426 0.0324186790 -0.0248566509
## z_OL 0.353662752 -0.107178372 0.01732652 -0.0567205166 -0.0193806444MX.sorted.loadings.1 <- loadings[order(loadings.MX[, 1]), 1]
myTitle <- "Loadings Plot for PC1"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.1, main=myTitle, xlab=myXlab, cex=1.5, col="red")
MX.sorted.loadings.2 <- loadings[order(loadings.MX[, 2]), 2]
myTitle <- "Loadings Plot for PC2"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.2, main=myTitle, xlab=myXlab, cex=1.5, col="red")
MX.sorted.loadings.3 <- loadings[order(loadings.MX[, 3]), 3]
myTitle <- "Loadings Plot for PC3"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.3, main=myTitle, xlab=myXlab, cex=1.5, col="red")
MX.VM_PCA <- varimax(PCA.MX$rotation[, 1:3])
MX.VM_PCA## $loadings
##
## Loadings:
## PC1 PC2 PC3
## z_D
## z_P1
## z_A 0.442
## z_P1.R -0.351 -0.266
## z_LLSC -0.496
## z_SALL -0.392 -0.193
## z_SBLL -0.214 0.236
## z_SBDF 0.576
## z_SL -0.457
## z_BD -0.434
## z_CPD 0.376
## z_CPL 0.341
## z_PreDL 0.360 -0.120
## z_DbL 0.349 -0.138
## z_HL 0.330 -0.172
## z_HD 0.128 0.423 -0.133
## z_HW 0.329 0.121
## z_SnL 0.342 0.146
## z_OL 0.361
##
## PC1 PC2 PC3
## SS loadings 1.000 1.000 1.000
## Proportion Var 0.053 0.053 0.053
## Cumulative Var 0.053 0.105 0.158
##
## $rotmat
## [,1] [,2] [,3]
## [1,] 0.99601043 0.08404312 0.02999967
## [2,] -0.08646954 0.99202238 0.09173120
## [3,] -0.02205097 -0.09395929 0.99533181(MXeig.val <- get_eigenvalue(PCA.MX))## eigenvalue variance.percent cumulative.variance.percent
## Dim.1 6.780268e+00 3.983609e+01 39.83609
## Dim.2 4.457980e+00 2.619195e+01 66.02804
## Dim.3 1.317200e+00 7.738941e+00 73.76698
## Dim.4 1.108380e+00 6.512060e+00 80.27904
## Dim.5 9.387528e-01 5.515451e+00 85.79449
## Dim.6 7.218236e-01 4.240928e+00 90.03542
## Dim.7 4.448907e-01 2.613865e+00 92.64928
## Dim.8 3.026697e-01 1.778274e+00 94.42756
## Dim.9 2.097846e-01 1.232547e+00 95.66011
## Dim.10 1.748477e-01 1.027282e+00 96.68739
## Dim.11 1.470263e-01 8.638233e-01 97.55121
## Dim.12 1.056033e-01 6.204505e-01 98.17166
## Dim.13 9.706471e-02 5.702840e-01 98.74195
## Dim.14 7.332590e-02 4.308115e-01 99.17276
## Dim.15 6.300184e-02 3.701545e-01 99.54291
## Dim.16 5.330359e-02 3.131744e-01 99.85609
## Dim.17 2.427339e-02 1.426134e-01 99.99870
## Dim.18 1.966288e-04 1.155253e-03 99.99985
## Dim.19 2.477527e-05 1.455621e-04 100.00000MXind <- get_pca_ind(PCA.MX)
head(MXind$coord[,1:4])## Dim.1 Dim.2 Dim.3 Dim.4
## 118 0.29763774 2.554428 0.4533443 0.7877446
## 119 1.76941332 2.004888 -1.2175889 -0.8218107
## 120 -0.15236603 2.581343 0.5421280 -1.0880012
## 121 0.07184393 1.988778 -0.8739322 -0.7345352
## 122 1.87809236 1.953035 -1.1229519 0.1176326
## 123 0.37081384 1.457753 -0.9601935 -0.7816533MX.raw1.p <- cbind(rawMX, MXind$coord[,1:4])
Tplot1<- autoplot(PCA.MX, x=2, y=3, data = rawMX, colour='SPP', loadings=FALSE, loadings.label=FALSE, frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
Tplot1
Tplot2<- autoplot(PCA.MX, data = rawMX, colour='SPP', loadings=FALSE, loadings.label=FALSE, frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
Tplot2
Post PCA tests
MXpc1 <- aov(Dim.1~SPP, data=MX.raw1.p)
summary(MXpc1)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 42.7 21.348 3.308 0.0411 *
## Residuals 89 574.3 6.453
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MXpc2 <- aov(Dim.2~SPP, data=MX.raw1.p)
summary(MXpc2)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 369.7 184.8 457.1 <2e-16 ***
## Residuals 89 36.0 0.4
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MXpc3 <- aov(Dim.3~SPP, data=MX.raw1.p)
summary(MXpc3)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 10.67 5.333 4.347 0.0158 *
## Residuals 89 109.20 1.227
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(MXpc1V <- leveneTest(Dim.1~SPP, data=MX.raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 4.9326 0.009298 **
## 89
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(MXpc2V <- leveneTest(Dim.2~SPP, data=MX.raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 0.6044 0.5486
## 89(MXpc3V <- leveneTest(Dim.3~SPP, data=MX.raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 0.7735 0.4645
## 89Filtered data
Now I will repeat analysis on a dataset that filters for fish above 32.5mm (this is the average for the range I found in literature, 28-37mm). This would confirm that all fish are likely adults, and remove any bias from juvenile proportions (ex. if juvenile head is proportionately larger than expected for body).
Initial steps
Data collection
library(dplyr)
rawF <- filter(raw1,SL>=32.5)
rawF1 <- rawF[-c(150), ] #this takes out the monster fish tooChecking normality
Checking normality
I will use Shapiro-wilke, histograms, and QQ plots to determine what traits are normal. These will only be performed on continuous variables, as discrete variables are not normal by nature.
Conclusions: literally all of them are NOT normal… will log transform them and run parametric tests (t-test, F-test, ANOVA). Not sure what to do with the discrete variables…[Logan said to use non-parametric OR a glmer with poisson distribution]
SW Test
shapiro.test(rawF$SL)##
## Shapiro-Wilk normality test
##
## data: rawF$SL
## W = 0.88785, p-value = 9.323e-12shapiro.test(rawF$BD)##
## Shapiro-Wilk normality test
##
## data: rawF$BD
## W = 0.94379, p-value = 1.537e-07shapiro.test(rawF$CPD)##
## Shapiro-Wilk normality test
##
## data: rawF$CPD
## W = 0.9366, p-value = 3.381e-08shapiro.test(rawF$CPL)##
## Shapiro-Wilk normality test
##
## data: rawF$CPL
## W = 0.91011, p-value = 2.741e-10shapiro.test(rawF$PreDL)##
## Shapiro-Wilk normality test
##
## data: rawF$PreDL
## W = 0.94232, p-value = 1.118e-07shapiro.test(rawF$DbL)##
## Shapiro-Wilk normality test
##
## data: rawF$DbL
## W = 0.98676, p-value = 0.03793shapiro.test(rawF$HL)##
## Shapiro-Wilk normality test
##
## data: rawF$HL
## W = 0.88931, p-value = 1.147e-11shapiro.test(rawF$HD)##
## Shapiro-Wilk normality test
##
## data: rawF$HD
## W = 0.91737, p-value = 9.289e-10shapiro.test(rawF$HW)##
## Shapiro-Wilk normality test
##
## data: rawF$HW
## W = 0.92699, p-value = 5.211e-09shapiro.test(rawF$SnL)##
## Shapiro-Wilk normality test
##
## data: rawF$SnL
## W = 0.97288, p-value = 0.0002976shapiro.test(rawF$OL)##
## Shapiro-Wilk normality test
##
## data: rawF$OL
## W = 0.9821, p-value = 0.006707SW tests for df w/o monster
shapiro.test(rawF1$SL)##
## Shapiro-Wilk normality test
##
## data: rawF1$SL
## W = 0.90902, p-value = 2.458e-10shapiro.test(rawF1$BD)##
## Shapiro-Wilk normality test
##
## data: rawF1$BD
## W = 0.95312, p-value = 1.374e-06shapiro.test(rawF1$CPD)##
## Shapiro-Wilk normality test
##
## data: rawF1$CPD
## W = 0.95682, p-value = 3.411e-06shapiro.test(rawF1$CPL)##
## Shapiro-Wilk normality test
##
## data: rawF1$CPL
## W = 0.92307, p-value = 2.703e-09shapiro.test(rawF1$PreDL)##
## Shapiro-Wilk normality test
##
## data: rawF1$PreDL
## W = 0.95065, p-value = 7.638e-07shapiro.test(rawF1$DbL)##
## Shapiro-Wilk normality test
##
## data: rawF1$DbL
## W = 0.98778, p-value = 0.05693shapiro.test(rawF1$HL)##
## Shapiro-Wilk normality test
##
## data: rawF1$HL
## W = 0.9142, p-value = 5.777e-10shapiro.test(rawF1$HD)##
## Shapiro-Wilk normality test
##
## data: rawF1$HD
## W = 0.95302, p-value = 1.34e-06shapiro.test(rawF1$HW)##
## Shapiro-Wilk normality test
##
## data: rawF1$HW
## W = 0.95207, p-value = 1.068e-06shapiro.test(rawF1$SnL)##
## Shapiro-Wilk normality test
##
## data: rawF1$SnL
## W = 0.97714, p-value = 0.001228shapiro.test(rawF1$OL)##
## Shapiro-Wilk normality test
##
## data: rawF1$OL
## W = 0.98583, p-value = 0.02724Histograms
hist(rawF$SL, breaks=30)
hist(rawF$BD, breaks=30)
hist(rawF$CPD, breaks=30)
hist(rawF$CPL, breaks=30)
hist(rawF$PreDL, breaks=30)
hist(rawF$DbL, breaks=30)
hist(rawF$HL, breaks=30)
hist(rawF$HD, breaks=30)
hist(rawF$HW, breaks=30)
hist(rawF$SnL, breaks=30)
hist(rawF$OL, breaks=30)
Hists for df w/o monster
hist(rawF1$SL, breaks=30)
hist(rawF1$BD, breaks=30)
hist(rawF1$CPD, breaks=30)
hist(rawF1$CPL, breaks=30)
hist(rawF1$PreDL, breaks=30)
hist(rawF1$DbL, breaks=30)
hist(rawF1$HL, breaks=30)
hist(rawF1$HD, breaks=30)
hist(rawF1$HW, breaks=30)
hist(rawF1$SnL, breaks=30)
hist(rawF1$OL, breaks=30)
QQ plots
qqnorm(rawF$SL)
qqline(rawF$SL)
qqnorm(rawF$BD)
qqline(rawF$BD)
qqnorm(rawF$CPD)
qqline(rawF$CPD)
qqnorm(rawF$CPL)
qqline(rawF$CPL)
qqnorm(rawF$PreDL)
qqline(rawF$PreDL)
qqnorm(rawF$DbL)
qqline(rawF$DbL)
qqnorm(rawF$HL)
qqline(rawF$HL)
qqnorm(rawF$HD)
qqline(rawF$HD)
qqnorm(rawF$HW)
qqline(rawF$HW)
qqnorm(rawF$SnL)
qqline(rawF$SnL)
qqnorm(rawF$OL)
qqline(rawF$OL)
Log transformations
Since all of the continuous characters were not normal, I will log transform them, and proceed with the transformed data in all analyses.
Log transformations did not work on ANY of them. Will try square/cubed root. Square root didn’t work…neither did cubed or sqaured. Log seemed to get them the closest. Will continue with log….
#rawF[paste0(names(rawF), '_sq')] <- '^'(rawF[, 25:35], 2)
#raw1 (which rawF is filtered from) already has log of shit, so don't need to do again
#for some reason did the log of the whole data frame instead of those specific columns, so I will just remove the unnecessary columns instead of spending time on what went wrong.
#rawF <- subset(rawF, select = -c(52:65) )
#rawF <- subset(rawF, select = -c(74:88) )
#double checking normality with a SW test and QQ plot
shapiro.test(rawF$SL_log)##
## Shapiro-Wilk normality test
##
## data: rawF$SL_log
## W = 0.97841, p-value = 0.001827shapiro.test(rawF$BD_log)##
## Shapiro-Wilk normality test
##
## data: rawF$BD_log
## W = 0.94873, p-value = 4.646e-07shapiro.test(rawF$CPD_log)##
## Shapiro-Wilk normality test
##
## data: rawF$CPD_log
## W = 0.97229, p-value = 0.0002479shapiro.test(rawF$CPL_log)##
## Shapiro-Wilk normality test
##
## data: rawF$CPL_log
## W = 0.97621, p-value = 0.0008721shapiro.test(rawF$PreDL_log)##
## Shapiro-Wilk normality test
##
## data: rawF$PreDL_log
## W = 0.99056, p-value = 0.1603shapiro.test(rawF$DbL_log)##
## Shapiro-Wilk normality test
##
## data: rawF$DbL_log
## W = 0.98022, p-value = 0.003423shapiro.test(rawF$HL_log)##
## Shapiro-Wilk normality test
##
## data: rawF$HL_log
## W = 0.98727, p-value = 0.04594shapiro.test(rawF$HD_log)##
## Shapiro-Wilk normality test
##
## data: rawF$HD_log
## W = 0.98318, p-value = 0.009921shapiro.test(rawF$HW_log)##
## Shapiro-Wilk normality test
##
## data: rawF$HW_log
## W = 0.95211, p-value = 1.024e-06shapiro.test(rawF$SnL_log)##
## Shapiro-Wilk normality test
##
## data: rawF$SnL_log
## W = 0.97428, p-value = 0.000465shapiro.test(rawF$OL_log)##
## Shapiro-Wilk normality test
##
## data: rawF$OL_log
## W = 0.97841, p-value = 0.001827hist(rawF$SL_log, breaks=30)
hist(rawF$BD_log, breaks=30)
hist(rawF$CPD_log, breaks=30)
hist(rawF$CPL_log, breaks=30)
hist(rawF$PreDL_log, breaks=30)
hist(rawF$DbL_log, breaks=30)
hist(rawF$HL_log, breaks=30)
hist(rawF$HD_log, breaks=30)
hist(rawF$HW_log, breaks=30)
hist(rawF$SnL_log, breaks=30)
hist(rawF$OL_log, breaks=30)
qqnorm(rawF$SL_log)
qqline(rawF$SL_log)
qqnorm(rawF$BD_log)
qqline(rawF$BD_log)
qqnorm(rawF$CPD_log)
qqline(rawF$CPD_log)
qqnorm(rawF$CPL_log)
qqline(rawF$CPL_log)
qqnorm(rawF$PreDL_log)
qqline(rawF$PreDL_log)
qqnorm(rawF$DbL_log)
qqline(rawF$DbL_log)
qqnorm(rawF$HL_log)
qqline(rawF$HL_log)
qqnorm(rawF$HD_log)
qqline(rawF$HD_log)
qqnorm(rawF$HW_log)
qqline(rawF$HW_log)
qqnorm(rawF$SnL_log)
qqline(rawF$SnL_log)
qqnorm(rawF$OL_log)
qqline(rawF$OL_log)
W/o monster
#rawF1[paste0(names(rawF1), '_log')] <- log(rawF1[, 25:35], 10)
#for some reason did the log of the whole data frame instead of those specific columns, so I will just remove the unnecessary columns instead of spending time on what went wrong.
#rawF1 <- subset(rawF1, select = -c(37:50) )
#rawF <- subset(rawF, select = -c(59:94) )
#double checking normality with a SW test and QQ plot
shapiro.test(rawF1$SL_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$SL_log
## W = 0.97705, p-value = 0.001191shapiro.test(rawF1$BD_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$BD_log
## W = 0.95933, p-value = 6.496e-06shapiro.test(rawF1$CPD_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$CPD_log
## W = 0.98607, p-value = 0.02987shapiro.test(rawF1$CPL_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$CPL_log
## W = 0.98412, p-value = 0.01442shapiro.test(rawF1$PreDL_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$PreDL_log
## W = 0.9913, p-value = 0.2133shapiro.test(rawF1$DbL_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$DbL_log
## W = 0.97967, p-value = 0.002917shapiro.test(rawF1$HL_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$HL_log
## W = 0.99054, p-value = 0.1616shapiro.test(rawF1$HD_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$HD_log
## W = 0.98823, p-value = 0.06757shapiro.test(rawF1$HW_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$HW_log
## W = 0.95564, p-value = 2.541e-06shapiro.test(rawF1$SnL_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$SnL_log
## W = 0.97456, p-value = 0.0005271shapiro.test(rawF1$OL_log)##
## Shapiro-Wilk normality test
##
## data: rawF1$OL_log
## W = 0.97705, p-value = 0.001191qqnorm(rawF1$SL_log)
qqline(rawF1$SL_log)
qqnorm(rawF1$BD_log)
qqline(rawF1$BD_log)
qqnorm(rawF1$CPD_log)
qqline(rawF1$CPD_log)
qqnorm(rawF1$CPL_log)
qqline(rawF1$CPL_log)
qqnorm(rawF1$PreDL_log)
qqline(rawF1$PreDL_log)
qqnorm(rawF1$DbL_log)
qqline(rawF1$DbL_log)
qqnorm(rawF1$HL_log)
qqline(rawF1$HL_log)
qqnorm(rawF1$HD_log)
qqline(rawF1$HD_log)
qqnorm(rawF1$HW_log)
qqline(rawF1$HW_log)
qqnorm(rawF1$SnL_log)
qqline(rawF1$SnL_log)
qqnorm(rawF1$OL_log)
qqline(rawF1$OL_log)
Correcting for body size (residuals)
SL correction
Since amazons are in general bigger than sailfin, we don’t want any results to be due to this difference in body size bias. Therefore, we will see what traits are influenced by body size (regressions) and correct for body size when necessary (absolute value of residuals). We can then use the residuals when comparing between species for traits that are influenced by body size, and raw/transformed data for traits that are not influenced by body size. I will also calculate standardized residuals to compare residuals across traits in later analyses.
Quick results summary: traits not influenced by body size are left & right pelvic, anal, scales above and below lateral line (except in mexicana), scales before dorsal fin and fluctuating asymmetry; all other traits influenced by body size.
Regressions
- STEP ONE: plot trait vs body size
library(ggplot2)
library(ggpubr)
lat.F <- rawF[rawF$SPP == "p.latipinna",]
form.F <- rawF[rawF$SPP == "p.formosa",]
mex.F <- rawF[rawF$SPP == "p.mexicana",]
##### LAT #####
F.reg.lat.D <- lm(lat.F$D ~ lat.F$SL)
F.sd.lat.D <- rstandard(F.reg.lat.D)
F.reg.lat.D.plot <- ggplot(lat.F, aes(x = SL, y = D)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
F.reg.lat.D.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.P1 <- lm(lat.F$P1 ~ lat.F$SL)
F.sd.lat.P1 <- rstandard(F.reg.lat.P1)
F.reg.lat.P1.plot <- ggplot(lat.F, aes(x = SL, y = P1)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
F.reg.lat.P1.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.A <- lm(lat.F$A ~ lat.F$SL)
F.sd.lat.A <- rstandard(F.reg.lat.A)
F.reg.lat.A.plot <- ggplot(lat.F, aes(x = SL, y = A)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 8)
F.reg.lat.A.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.P1.R <- lm(lat.F$P1.R ~ lat.F$SL)
F.sd.lat.P1.R <- rstandard(F.reg.lat.P1.R)
F.reg.lat.P1.R.plot <- ggplot(lat.F, aes(x = SL, y = P1.R)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
F.reg.lat.P1.R.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.LLSC <- lm(lat.F$LLSC ~ lat.F$SL)
F.sd.lat.LLSC <- rstandard(F.reg.lat.LLSC)
F.reg.lat.LLSC.plot <- ggplot(lat.F, aes(x = SL, y = LLSC)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 20)
F.reg.lat.LLSC.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.SALL <- lm(lat.F$SALL ~ lat.F$SL)
F.sd.lat.SALL <- rstandard(F.reg.lat.SALL)
F.reg.lat.SALL.plot <- ggplot(lat.F, aes(x = SL, y = SALL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
F.reg.lat.SALL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.SBLL <- lm(lat.F$SBLL ~ lat.F$SL)
F.sd.lat.SBLL <- rstandard(F.reg.lat.SBLL)
F.reg.lat.SBLL.plot <- ggplot(lat.F, aes(x = SL, y = SBLL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 2)
F.reg.lat.SBLL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.SBDF <- lm(lat.F$SBDF ~ lat.F$SL)
F.sd.lat.SBDF <- rstandard(F.reg.lat.SBDF)
F.reg.lat.SBDF.plot <- ggplot(lat.F, aes(x = SL, y = SBDF)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 5)
F.reg.lat.SBDF.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.BD <- lm(lat.F$BD_log ~ lat.F$SL_log)
F.sd.lat.BD <- rstandard(F.reg.lat.BD)
F.reg.lat.BD.plot <- ggplot(lat.F, aes(x = SL_log, y = BD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
F.reg.lat.BD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.CPD <- lm(lat.F$CPD_log ~ lat.F$SL_log)
F.sd.lat.CPD <- rstandard(F.reg.lat.CPD)
F.reg.lat.CPD.plot <- ggplot(lat.F, aes(x = SL_log, y = CPD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.2)
F.reg.lat.CPD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.CPL <- lm(lat.F$CPL_log ~ lat.F$SL_log)
F.sd.lat.CPL <- rstandard(F.reg.lat.CPL)
F.reg.lat.CPL.plot <- ggplot(lat.F, aes(x = SL_log, y = CPL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.2)
F.reg.lat.CPL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.PreDL <- lm(lat.F$PreDL_log ~ lat.F$SL_log)
F.sd.lat.PreDL <- rstandard(F.reg.lat.PreDL)
F.reg.lat.PreDL.plot <- ggplot(lat.F, aes(x = SL_log, y = PreDL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1)
F.reg.lat.PreDL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.DbL <- lm(lat.F$DbL_log ~ lat.F$SL_log)
F.sd.lat.DbL <- rstandard(F.reg.lat.DbL)
F.reg.lat.DbL.plot <- ggplot(lat.F, aes(x = SL_log, y = DbL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1)
F.reg.lat.DbL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.HL <- lm(lat.F$HL_log ~ lat.F$SL_log)
F.sd.lat.HL <- rstandard(F.reg.lat.HL)
F.reg.lat.HL.plot <- ggplot(lat.F, aes(x = SL_log, y = HL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.4)
F.reg.lat.HL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.HD <- lm(lat.F$HD_log ~ lat.F$SL_log)
F.sd.lat.HD <- rstandard(F.reg.lat.HD)
F.reg.lat.HD.plot <- ggplot(lat.F, aes(x = SL_log, y = HD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.2)
F.reg.lat.HD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.HW <- lm(lat.F$HW_log ~ lat.F$SL_log)
F.sd.lat.HW <- rstandard(F.reg.lat.HW)
F.reg.lat.HW.plot <- ggplot(lat.F, aes(x = SL_log, y = HW_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.3)
F.reg.lat.HW.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.SnL <- lm(lat.F$SnL_log ~ lat.F$SL_log)
F.sd.lat.SnL <- rstandard(F.reg.lat.SnL)
F.reg.lat.SnL.plot <- ggplot(lat.F, aes(x = SL_log, y = SnL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
F.reg.lat.SnL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.OL <- lm(lat.F$OL_log ~ lat.F$SL_log)
F.sd.lat.OL <- rstandard(F.reg.lat.OL)
F.reg.lat.OL.plot <- ggplot(lat.F, aes(x = SL_log, y = OL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.2)
F.reg.lat.OL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.lat.FLA <- lm(lat.F$FLA ~ lat.F$SL)
F.sd.lat.FLA <- rstandard(F.reg.lat.FLA)
F.reg.lat.FLA.plot <- ggplot(lat.F, aes(x = SL, y = FLA)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
F.reg.lat.FLA.plot## `geom_smooth()` using formula = 'y ~ x'
##### FORM #####
F.reg.form.D <- lm(form.F$D ~ form.F$SL)
F.sd.form.D <- rstandard(F.reg.form.D)
F.reg.form.D.plot <- ggplot(form.F, aes(x =SL, y = D)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.form.D.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.P1 <- lm(form.F$P1 ~ form.F$SL)
F.sd.form.P1 <- rstandard(F.reg.form.P1)
F.reg.form.P1.plot <- ggplot(form.F, aes(x = SL, y = P1)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 12)
F.reg.form.P1.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.A <- lm(form.F$A ~ form.F$SL)
F.sd.form.A <- rstandard(F.reg.form.A)
F.reg.form.A.plot <- ggplot(form.F, aes(x = SL, y = A)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 8.7)
F.reg.form.A.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.P1.R <- lm(form.F$P1.R ~ form.F$SL)
F.sd.form.P1.R <- rstandard(F.reg.form.P1.R)
F.reg.form.P1.R.plot <- ggplot(form.F, aes(x = SL, y = P1.R)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 11)
F.reg.form.P1.R.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.LLSC <- lm(form.F$LLSC ~ form.F$SL)
F.sd.form.LLSC <- rstandard(F.reg.form.LLSC)
F.reg.form.LLSC.plot <- ggplot(form.F, aes(x = SL, y = LLSC)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 20)
F.reg.form.LLSC.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.SALL <- lm(form.F$SALL ~ form.F$SL)
F.sd.form.SALL <- rstandard(F.reg.form.SALL)
F.reg.form.SALL.plot <- ggplot(form.F, aes(x = SL, y = SALL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
F.reg.form.SALL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.SBLL <- lm(form.F$SBLL ~ form.F$SL)
F.sd.form.SBLL <- rstandard(F.reg.form.SBLL)
F.reg.form.SBLL.plot <- ggplot(form.F, aes(x = SL, y = SBLL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
F.reg.form.SBLL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.SBDF <- lm(form.F$SBDF ~ form.F$SL)
F.sd.form.SBDF <- rstandard(F.reg.form.SBDF)
F.reg.form.SBDF.plot <- ggplot(form.F, aes(x = SL, y = SBDF)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 6.5)
F.reg.form.SBDF.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.BD <- lm(form.F$BD_log ~ form.F$SL_log)
F.sd.form.BD <- rstandard(F.reg.form.BD)
F.reg.form.BD.plot <- ggplot(form.F, aes(x = SL_log, y = BD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.5)
F.reg.form.BD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.CPD <- lm(form.F$CPD_log ~ form.F$SL_log)
F.sd.form.CPD <- rstandard(F.reg.form.CPD)
F.reg.form.CPD.plot <- ggplot(form.F, aes(x = SL_log, y = CPD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.2)
F.reg.form.CPD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.CPL <- lm(form.F$CPL_log ~ form.F$SL_log)
F.sd.form.CPL <- rstandard(F.reg.form.CPL)
F.reg.form.CPL.plot <- ggplot(form.F, aes(x = SL_log, y = CPL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.2)
F.reg.form.CPL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.PreDL <- lm(form.F$PreDL_log ~ form.F$SL_log)
F.sd.form.PreDL <- rstandard(F.reg.form.PreDL)
F.reg.form.PreDL.plot <- ggplot(form.F, aes(x = SL_log, y = PreDL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1)
F.reg.form.PreDL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.DbL <- lm(form.F$DbL_log ~ form.F$SL_log)
F.sd.form.DbL <- rstandard(F.reg.form.DbL)
F.reg.form.DbL.plot <- ggplot(form.F, aes(x = SL_log, y = DbL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1)
F.reg.form.DbL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.HL <- lm(form.F$HL_log ~ form.F$SL_log)
F.sd.form.HL <- rstandard(F.reg.form.HL)
F.reg.form.HL.plot <- ggplot(form.F, aes(x = SL_log, y = HL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.4)
F.reg.form.HL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.HD <- lm(form.F$HD_log ~ form.F$SL_log)
F.sd.form.HD <- rstandard(F.reg.form.HD)
F.reg.form.HD.plot <- ggplot(form.F, aes(x = SL_log, y = HD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.25)
F.reg.form.HD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.HW <- lm(form.F$HW_log ~ form.F$SL_log)
F.sd.form.HW <- rstandard(F.reg.form.HW)
F.reg.form.HW.plot <- ggplot(form.F, aes(x = SL_log, y = HW_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.3)
F.reg.form.HW.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.SnL <- lm(form.F$SnL_log ~ form.F$SL_log)
F.sd.form.SnL <- rstandard(F.reg.form.SnL)
F.reg.form.SnL.plot <- ggplot(form.F, aes(x = SL_log, y = SnL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.6)
F.reg.form.SnL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.OL <- lm(form.F$OL_log ~ form.F$SL_log)
F.sd.form.OL <- rstandard(F.reg.form.OL)
F.reg.form.OL.plot <- ggplot(form.F, aes(x = SL_log, y = OL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 1.2)
F.reg.form.OL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.form.FLA <- lm(form.F$FLA ~ form.F$SL)
F.sd.form.FLA <- rstandard(F.reg.form.FLA)
F.reg.form.FLA.plot <- ggplot(form.F, aes(x = SL, y = FLA)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 3.5)
F.reg.form.FLA.plot## `geom_smooth()` using formula = 'y ~ x'
##### MEX #####
F.reg.mex.D <- lm(mex.F$D ~ mex.F$SL)
F.sd.mex.D <- rstandard(F.reg.mex.D)
F.reg.mex.D.plot <- ggplot(mex.F, aes(x = SL, y = D)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.D.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.P1 <- lm(mex.F$P1 ~ mex.F$SL)
F.sd.mex.P1 <- rstandard(F.reg.mex.P1)
F.reg.mex.P1.plot <- ggplot(mex.F, aes(x = SL, y = P1)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.P1.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.P2.L <- lm(mex.F$P2.L ~ mex.F$SL)
F.sd.mex.P2.L <- rstandard(F.reg.mex.P2.L)
F.reg.mex.P2.L.plot <- ggplot(mex.F, aes(x = SL, y = P2.L)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.P2.L.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.P2.R <- lm(mex.F$P2.R ~ mex.F$SL)
F.sd.mex.P2.R <- rstandard(F.reg.mex.P2.R)
F.reg.mex.P2.R.plot <- ggplot(mex.F, aes(x = SL, y = P2.R)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.P2.R.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.A <- lm(mex.F$A ~ mex.F$SL)
F.sd.mex.A <- rstandard(F.reg.mex.A)
F.reg.mex.A.plot <- ggplot(mex.F, aes(x = SL, y = A)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.A.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.P1.R <- lm(mex.F$P1.R ~ mex.F$SL)
F.sd.mex.P1.R <- rstandard(F.reg.mex.P1.R)
F.reg.mex.P1.R.plot <- ggplot(mex.F, aes(x = SL, y = P1.R)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.P1.R.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.LLSC <- lm(mex.F$LLSC ~ mex.F$SL)
F.sd.mex.LLSC <- rstandard(F.reg.mex.LLSC)
F.reg.mex.LLSC.plot <- ggplot(mex.F, aes(x = SL, y = LLSC)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.LLSC.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.SALL <- lm(mex.F$SALL ~ mex.F$SL)
F.sd.mex.SALL <- rstandard(F.reg.mex.SALL)
F.reg.mex.SALL.plot <- ggplot(mex.F, aes(x = SL, y = SALL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.SALL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.SBLL <- lm(mex.F$SBLL ~ mex.F$SL)
F.sd.mex.SBLL <- rstandard(F.reg.mex.SBLL)
F.reg.mex.SBLL.plot <- ggplot(mex.F, aes(x = SL, y = SBLL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.SBLL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.SBDF <- lm(mex.F$SBDF ~ mex.F$SL)
F.sd.mex.SBDF <- rstandard(F.reg.mex.SBDF)
F.reg.mex.SBDF.plot <- ggplot(mex.F, aes(x = SL, y = SBDF)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.SBDF.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.BD <- lm(mex.F$BD_log ~ mex.F$SL_log)
F.sd.mex.BD <- rstandard(F.reg.mex.BD)
F.reg.mex.BD.plot <- ggplot(mex.F, aes(x = SL_log, y = BD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.BD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.CPD <- lm(mex.F$CPD_log ~ mex.F$SL_log)
F.sd.mex.CPD <- rstandard(F.reg.mex.CPD)
F.reg.mex.CPD.plot <- ggplot(mex.F, aes(x = SL_log, y = CPD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.CPD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.CPL <- lm(mex.F$CPL_log ~ mex.F$SL_log)
F.sd.mex.CPL <- rstandard(F.reg.mex.CPL)
F.reg.mex.CPL.plot <- ggplot(mex.F, aes(x = SL_log, y = CPL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.CPL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.PreDL <- lm(mex.F$PreDL_log ~ mex.F$SL_log)
F.sd.mex.PreDL <- rstandard(F.reg.mex.PreDL)
F.reg.mex.PreDL.plot <- ggplot(mex.F, aes(x = SL_log, y = PreDL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.PreDL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.DbL <- lm(mex.F$DbL_log ~ mex.F$SL_log)
F.sd.mex.DbL <- rstandard(F.reg.mex.DbL)
F.reg.mex.DbL.plot <- ggplot(mex.F, aes(x = SL_log, y = DbL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.DbL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.HL <- lm(mex.F$HL_log ~ mex.F$SL_log)
F.sd.mex.HL <- rstandard(F.reg.mex.HL)
F.reg.mex.HL.plot <- ggplot(mex.F, aes(x = SL_log, y = HL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.HL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.HD <- lm(mex.F$HD_log ~ mex.F$SL_log)
F.sd.mex.HD <- rstandard(F.reg.mex.HD)
F.reg.mex.HD.plot <- ggplot(mex.F, aes(x = SL_log, y = HD_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.HD.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.HW <- lm(mex.F$HW_log ~ mex.F$SL_log)
F.sd.mex.HW <- rstandard(F.reg.mex.HW)
F.reg.mex.HW.plot <- ggplot(mex.F, aes(x = SL_log, y = HW_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.HW.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.SnL <- lm(mex.F$SnL_log ~ mex.F$SL_log)
F.sd.mex.SnL <- rstandard(F.reg.mex.SnL)
F.reg.mex.SnL.plot <- ggplot(mex.F, aes(x = SL_log, y = SnL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.SnL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.OL <- lm(mex.F$OL_log ~ mex.F$SL_log)
F.sd.mex.OL <- rstandard(F.reg.mex.OL)
F.reg.mex.OL.plot <- ggplot(mex.F, aes(x = SL_log, y = OL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.OL.plot## `geom_smooth()` using formula = 'y ~ x'
F.reg.mex.FLA <- lm(mex.F$FLA ~ mex.F$SL)
F.sd.mex.FLA <- rstandard(F.reg.mex.FLA)
F.reg.mex.FLA.plot <- ggplot(mex.F, aes(x = SL, y = FLA)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
F.reg.mex.FLA.plot## `geom_smooth()` using formula = 'y ~ x'
Residuals
STEP TWO: get residuals for each individual for traits that were influenced by body size
STEP THREE: convert residuals to absolute value
##### LAT #####
F.abs.lat.D <- abs(F.res.lat.D)
mean(F.abs.lat.D)## [1] 0.5690529F.abs.lat.P1.R <- abs(F.res.lat.P1.R)
mean(F.abs.lat.P1.R)## [1] 0.5782063F.abs.lat.LLSC <- abs(F.res.lat.LLSC)
mean(F.abs.lat.LLSC)## [1] 0.7316606F.abs.lat.SBLL <- abs(F.res.lat.SBLL)
mean(F.abs.lat.SBLL)## [1] 0.274228F.abs.lat.BD <- abs(F.res.lat.BD)
mean(F.abs.lat.BD)## [1] 0.03134439F.abs.lat.CPD <- abs(F.res.lat.CPD)
mean(F.abs.lat.CPD)## [1] 0.03008961F.abs.lat.CPL <- abs(F.res.lat.CPL)
mean(F.abs.lat.CPL)## [1] 0.031172F.abs.lat.PreDL <- abs(F.res.lat.PreDL)
mean(F.abs.lat.PreDL)## [1] 0.04262162F.abs.lat.DbL <- abs(F.res.lat.DbL)
mean(F.abs.lat.DbL)## [1] 0.04095673F.abs.lat.HL <- abs(F.res.lat.HL)
mean(F.abs.lat.HL)## [1] 0.02983505F.abs.lat.HD <- abs(F.res.lat.HD)
mean(F.abs.lat.HD)## [1] 0.02970775F.abs.lat.HW <- abs(F.res.lat.HW)
mean(F.abs.lat.HW)## [1] 0.02753679F.abs.lat.SnL <- abs(F.res.lat.SnL)
mean(F.abs.lat.SnL)## [1] 0.02404323F.abs.lat.OL <- abs(F.res.lat.OL)
mean(F.abs.lat.OL)## [1] 4.47166e-18##### FORM #####
F.abs.form.D <- abs(F.res.form.D)
mean(F.abs.form.D)## [1] 0.5057929F.abs.form.P1.R <- abs(F.res.form.P1.R)
mean(F.abs.form.P1.R)## [1] 0.4644069F.abs.form.LLSC <- abs(F.res.form.LLSC)
mean(F.abs.form.LLSC)## [1] 0.8024266F.abs.form.SBLL <- abs(F.res.form.SBLL)
mean(F.abs.form.SBLL)## [1] 0.3032569F.abs.form.BD <- abs(F.res.form.BD)
mean(F.abs.form.BD)## [1] 0.03633792F.abs.form.CPD <- abs(F.res.form.CPD)
mean(F.abs.form.CPD)## [1] 0.02681247F.abs.form.CPL <- abs(F.res.form.CPL)
mean(F.abs.form.CPL)## [1] 0.03066026F.abs.form.PreDL <- abs(F.res.form.PreDL)
mean(F.abs.form.PreDL)## [1] 0.04651937F.abs.form.DbL <- abs(F.res.form.DbL)
mean(F.abs.form.DbL)## [1] 0.03191869F.abs.form.HL <- abs(F.res.form.HL)
mean(F.abs.form.HL)## [1] 0.03006365F.abs.form.HD <- abs(F.res.form.HD)
mean(F.abs.form.HD)## [1] 0.02822344F.abs.form.HW <- abs(F.res.form.HW)
mean(F.abs.form.HW)## [1] 0.02989707F.abs.form.SnL <- abs(F.res.form.SnL)
mean(F.abs.form.SnL)## [1] 0.02797642F.abs.form.OL <- abs(F.res.form.OL)
mean(F.abs.form.OL)## [1] 2.211292e-17##### MEX #####
F.abs.mex.D <- abs(F.res.mex.D)
mean(F.abs.mex.D)## [1] 0.09391999F.abs.mex.P1.R <- abs(F.res.mex.P1.R)
mean(F.abs.mex.P1.R)## [1] 0.5711081F.abs.mex.LLSC <- abs(F.res.mex.LLSC)
mean(F.abs.mex.LLSC)## [1] 0.4403132F.abs.mex.SBLL <- abs(F.res.mex.SBLL)
mean(F.abs.mex.SBLL)## [1] 0.2860922F.abs.mex.BD <- abs(F.res.mex.BD)
mean(F.abs.mex.BD)## [1] 0.03040541F.abs.mex.CPD <- abs(F.res.mex.CPD)
mean(F.abs.mex.CPD)## [1] 0.02942755F.abs.mex.CPL <- abs(F.res.mex.CPL)
mean(F.abs.mex.CPL)## [1] 0.0309752F.abs.mex.PreDL <- abs(F.res.mex.PreDL)
mean(F.abs.mex.PreDL)## [1] 0.04357568F.abs.mex.DbL <- abs(F.res.mex.DbL)
mean(F.abs.mex.DbL)## [1] 0.02689813F.abs.mex.HL <- abs(F.res.mex.HL)
mean(F.abs.mex.HL)## [1] 0.04816588F.abs.mex.HD <- abs(F.res.mex.HD)
mean(F.abs.mex.HD)## [1] 0.0318384F.abs.mex.HW <- abs(F.res.mex.HW)
mean(F.abs.mex.HW)## [1] 0.02994677F.abs.mex.SnL <- abs(F.res.mex.SnL)
mean(F.abs.mex.SnL)## [1] 0.03665857F.abs.mex.OL <- abs(F.res.mex.OL)
mean(F.abs.mex.OL)## [1] 3.901712e-18#let's get this into the raw1 data set so that we can plot this more easily
F.abs.res.D <- c(F.abs.lat.D, F.abs.form.D, F.abs.mex.D)
F.abs.res.P1.R <- c(F.abs.lat.P1.R, F.abs.form.P1.R, F.abs.mex.P1.R)
F.abs.res.LLSC<- c(F.abs.lat.LLSC, F.abs.form.LLSC, F.abs.mex.LLSC)
F.abs.res.SBLL<- c(F.abs.lat.SBLL, F.abs.form.SBLL, F.abs.mex.SBLL)
F.abs.res.BD<- c(F.abs.lat.BD, F.abs.form.BD, F.abs.mex.BD)
F.abs.res.CPD<- c(F.abs.lat.CPD, F.abs.form.CPD, F.abs.mex.CPD)
F.abs.res.CPL<- c(F.abs.lat.CPL, F.abs.form.CPL, F.abs.mex.CPL)
F.abs.res.PreDL <- c(F.abs.lat.PreDL, F.abs.form.PreDL, F.abs.mex.PreDL)
F.abs.res.DbL <- c(F.abs.lat.DbL, F.abs.form.DbL, F.abs.mex.DbL)
F.abs.res.HL<- c(F.abs.lat.HL, F.abs.form.HL, F.abs.mex.HL)
F.abs.res.HD<- c(F.abs.lat.HD, F.abs.form.HD, F.abs.mex.HD)
F.abs.res.HW <- c(F.abs.lat.HW, F.abs.form.HW, F.abs.mex.HW)
F.abs.res.SnL <- c(F.abs.lat.SnL, F.abs.form.SnL, F.abs.mex.SnL)
F.abs.res.OL <- c(F.abs.lat.OL, F.abs.form.OL, F.abs.mex.OL)
rawF2 <- cbind(rawF, F.abs.res.D, F.abs.res.P1.R, F.abs.res.LLSC, F.abs.res.SBLL, F.abs.res.BD, F.abs.res.CPD, F.abs.res.CPL, F.abs.res.PreDL, F.abs.res.DbL, F.abs.res.HL, F.abs.res.HD, F.abs.res.HW, F.abs.res.SnL, F.abs.res.OL)Residual Comparisons
- STEP FOUR: plot the mean of the |residuals| for both species, for all traits influenced by body size
library(ggbeeswarm)
library(dplyr)
ggplot(rawF2, aes(SPP, F.abs.res.D)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
scatter_violin <- ggplot(data=rawF2, aes(x=SPP, y=F.abs.res.D)) +
geom_violin(trim = FALSE) +
stat_summary(
fun.data = "mean_sdl", fun.args = list(mult = 1),
geom = "pointrange", color = "black"
)
print(scatter_violin)
scatter_violin1 <- ggplot(data=rawF2, aes(x=SPP, y=F.abs.res.D)) +
geom_violin(trim = FALSE) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="crossbar", fill="red", width=0.03)
print(scatter_violin1)
ggplot(rawF2, aes(SPP, F.abs.res.P1.R)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3) 
ggplot(rawF2, aes(SPP, F.abs.res.LLSC)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.SBLL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.BD)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.CPD)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.CPL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3) 
ggplot(rawF2, aes(SPP, F.abs.res.PreDL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.DbL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.HL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.HD)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.HW)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.SnL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
ggplot(rawF2, aes(SPP, F.abs.res.OL)) +
geom_point(alpha=0.3) +
stat_summary(fun.data=function(x){mean_cl_normal(x, conf.int=.683)}, geom="errorbar",
width=0.03, colour="red", alpha=0.7) +
stat_summary(fun=mean, geom="point", fill="red", pch=21, size=3)
Comparing variation
Variance tests
- t-test for residuals, continuous (do an f-test too, might be cool)
- residual discrete will go through glmer
- raw discrete will go through f-test (no idea how to do this otherwise), and results will be compared to visualizations to check for discrepencies.
(note: did non-parametric instead of transforming, but Mike said to transform, so I copied that work to the ‘morphology-analysis-final’ Rmd).
F-test on residuals doesn’t make much sense; the residuals themselves are representative of the variation present, as they are the distance from the mean. Therefore, F-test on residuals is like variance of the variance. Instead, I have to do a t-test on the absolute value of the residuals. In this sense, we want to see if the mean of the absolute residuals is higher or lower for asexual species–is the average amount of variation higher or lower for this trait? Based on the regressions, if the trait was influenced by body size, I will perform a t-test on the absolute value of the residuals. If the trait was not influenced by body size, I will perform an F-test of variance on the raw data.
Quick results summary: For the F-test on raw data, none of the traits were significantly different (P2L/R, A, SBDF, FLA). For the t-tests on residuals, the only significant traits are left pectoral (), right pectoral (lat>form), scales above lateral line (), scales below lateral line (form>lat), and head length ().
- will do two-tailed and check out the residual means to infer direction; for traits in which we use raw data, a one-tailed f-test will be perfomed in both direction to determine which species is varying more. We will also visulize the variation using a histogram to confirm direction results.(1) Continuous, residuals
- will do two-tailed and check out the means to infer direction (see beginning for trait means w/o body correction)
- this will be for the traits that did have a significant regression compared to SL; will be using the absolute value residuals.
- For continuous traits, we will be using the transformed data.
T-tests
##
## Welch Two Sample t-test
##
## data: F.abs.lat.BD and F.abs.form.BD
## t = -1.2189, df = 193.87, p-value = 0.2244
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.013073360 0.003086295
## sample estimates:
## mean of x mean of y
## 0.03134439 0.03633792##
## Welch Two Sample t-test
##
## data: F.abs.lat.CPD and F.abs.form.CPD
## t = 1.0166, df = 185.78, p-value = 0.3107
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.003082334 0.009636619
## sample estimates:
## mean of x mean of y
## 0.03008961 0.02681247##
## Welch Two Sample t-test
##
## data: F.abs.lat.CPL and F.abs.form.CPL
## t = 0.13032, df = 189.33, p-value = 0.8965
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.007234423 0.008257913
## sample estimates:
## mean of x mean of y
## 0.03117200 0.03066026##
## Welch Two Sample t-test
##
## data: F.abs.lat.PreDL and F.abs.form.PreDL
## t = -0.76279, df = 193.28, p-value = 0.4465
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.01397601 0.00618051
## sample estimates:
## mean of x mean of y
## 0.04262162 0.04651937##
## Welch Two Sample t-test
##
## data: F.abs.lat.DbL and F.abs.form.DbL
## t = 2.178, df = 193.03, p-value = 0.03062
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 0.0008534224 0.0172226518
## sample estimates:
## mean of x mean of y
## 0.04095673 0.03191869##
## Welch Two Sample t-test
##
## data: F.abs.lat.HL and F.abs.form.HL
## t = -0.062173, df = 185.3, p-value = 0.9505
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.007482424 0.007025226
## sample estimates:
## mean of x mean of y
## 0.02983505 0.03006365##
## Welch Two Sample t-test
##
## data: F.abs.lat.HD and F.abs.form.HD
## t = 0.43483, df = 189.82, p-value = 0.6642
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.005249085 0.008217706
## sample estimates:
## mean of x mean of y
## 0.02970775 0.02822344##
## Welch Two Sample t-test
##
## data: F.abs.lat.HW and F.abs.form.HW
## t = -0.72235, df = 193.22, p-value = 0.471
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.008804796 0.004084239
## sample estimates:
## mean of x mean of y
## 0.02753679 0.02989707##
## Welch Two Sample t-test
##
## data: F.abs.lat.SnL and F.abs.form.SnL
## t = -1.2885, df = 191.25, p-value = 0.1991
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.009954161 0.002087792
## sample estimates:
## mean of x mean of y
## 0.02404323 0.02797642##
## Welch Two Sample t-test
##
## data: F.abs.lat.OL and F.abs.form.OL
## t = -1.629, df = 110.39, p-value = 0.1062
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -3.910179e-17 3.819266e-18
## sample estimates:
## mean of x mean of y
## 4.471660e-18 2.211292e-17(2) Discrete, residuals
Logan suggested doing a glm with poisson distribution (because it is count data) for these relationships. I originally performed Mann Whitney U tests, so will also include that. Overall, results don’t differ even though exact values are slightly different.
Had to remove the poisson part, becausethe residuals didn’t meet the non-integer requirement for poisson (it freaked out and took forever to load).
GLMs
rawF3 <- rawF2[rawF2$SPP !="p.mexicana", ]
Fglm_D <- glm(F.abs.res.D~SPP, data=rawF3)
print(summary(Fglm_D), show.residuals=TRUE)##
## Call:
## glm(formula = F.abs.res.D ~ SPP, data = rawF3)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.4962 -0.4088 -0.1003 0.2814 1.5729
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.50579 0.03791 13.343 <2e-16 ***
## SPPp.latipinna 0.06326 0.05608 1.128 0.261
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1537471)
##
## Null deviance: 30.176 on 196 degrees of freedom
## Residual deviance: 29.981 on 195 degrees of freedom
## AIC: 194.18
##
## Number of Fisher Scoring iterations: 2F.D.aov <- aov(Fglm_D)
summary(F.D.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 1 0.196 0.1956 1.272 0.261
## Residuals 195 29.981 0.1537Fglm_P1.R <- glm(F.abs.res.P1.R~SPP, data=rawF3)
print(summary(Fglm_P1.R), show.residuals=TRUE)##
## Call:
## glm(formula = F.abs.res.P1.R ~ SPP, data = rawF3)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.4613 -0.3169 -0.1726 0.1641 1.5727
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.46441 0.03992 11.635 <2e-16 ***
## SPPp.latipinna 0.11380 0.05906 1.927 0.0554 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1704834)
##
## Null deviance: 33.877 on 196 degrees of freedom
## Residual deviance: 33.244 on 195 degrees of freedom
## AIC: 214.54
##
## Number of Fisher Scoring iterations: 2F.P1.R.aov <- aov(Fglm_P1.R)
summary(F.P1.R.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 1 0.63 0.6331 3.713 0.0554 .
## Residuals 195 33.24 0.1705
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1Fglm_LLSC <- glm(F.abs.res.LLSC~SPP, data=rawF3)
print(summary(Fglm_LLSC), show.residuals=TRUE)##
## Call:
## glm(formula = F.abs.res.LLSC ~ SPP, data = rawF3)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.7863 -0.4836 -0.2411 0.3615 3.0681
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.80243 0.06431 12.477 <2e-16 ***
## SPPp.latipinna -0.07077 0.09515 -0.744 0.458
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4425906)
##
## Null deviance: 86.550 on 196 degrees of freedom
## Residual deviance: 86.305 on 195 degrees of freedom
## AIC: 402.47
##
## Number of Fisher Scoring iterations: 2F.LLSC.aov <- aov(Fglm_LLSC)
summary(F.LLSC.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 1 0.24 0.2448 0.553 0.458
## Residuals 195 86.31 0.4426Fglm_SBLL <- glm(F.abs.res.SBLL~SPP, data=rawF3)
print(summary(Fglm_SBLL), show.residuals=TRUE)##
## Call:
## glm(formula = F.abs.res.SBLL ~ SPP, data = rawF3)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.29641 -0.21484 -0.17624 -0.07458 1.55334
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.30326 0.03633 8.346 1.28e-14 ***
## SPPp.latipinna -0.02903 0.05376 -0.540 0.59
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1412584)
##
## Null deviance: 27.587 on 196 degrees of freedom
## Residual deviance: 27.545 on 195 degrees of freedom
## AIC: 177.49
##
## Number of Fisher Scoring iterations: 2F.SBLL.aov <- aov(Fglm_SBLL)
summary(F.SBLL.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 1 0.041 0.04119 0.292 0.59
## Residuals 195 27.545 0.14126(3) Discrete, raw
EVEN THOUGH THESE ARE DISCRETE, NO IDEA WHAT ELSE TO DO WITH THEM (glmm on raw data will just compare means). Did both F-test and Levene’s test. Get the same overall results, albeit slightly different values. Might go with Levene’s since it is good with non-normal data.
This will only be for the traits that did not have a significant regression compared to SL (so P2s, A, SALL, SBDF, and FLA); none of these traits were transformed, so just doing raw for now.
Levene’s test
Still only performing this on the traits that did NOT vary with SL (P2L/R, A, SALL, SBLL [between sail and amz only], SBDF, FLA).
(FLT_P2L <- leveneTest(P2.L~SPP, data=rawF3)) #gives nothing since it's all the same value## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 NaN NaN
## 195(FLT_P2R <- leveneTest(P2.R~SPP, data=rawF3)) #same as above## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 NaN NaN
## 195(FLT_P1 <- leveneTest(P1~SPP, data=rawF3)) ## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.0172 0.8959
## 195(FLT_A <- leveneTest(A~SPP, data=rawF3)) ## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.9255 0.3372
## 195(FLT_SALL <- leveneTest(SALL~SPP, data=rawF3))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 4.7837 0.02992 *
## 195
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(FLT_SBDF <- leveneTest(SBDF~SPP, data=rawF3))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.0845 0.7716
## 195(FLT_FLA <- leveneTest(FLA~SPP, data=rawF3))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.2675 0.6056
## 195Summary of variance results
WHY WON’T THIS TABLE WORK!!!!!!!!
average.table <- matrix(c(MW_D\(p.value, mean(F.abs.lat.F.D, na.rm = TRUE), mean(F.abs.form.D, na.rm = TRUE), MW_P1\)p.value, mean(F.abs.lat.F.P1, na.rm = TRUE), mean(F.abs.form.P1, na.rm = TRUE), LT_P2R\("Pr(>F)", mean(lat.F\)P2.R, na.rm = TRUE), mean(form\(P2.R, na.rm = TRUE), LT_P2R\)“Pr(>F)”, mean(lat.F\(P2.L, na.rm = TRUE), mean(form\)P2.L, na.rm = TRUE), LT_A\("Pr(>F)", mean(lat.F\)A, na.rm = TRUE), mean(form\(A, na.rm = TRUE), MW_P1R\)p.value, mean(F.abs.lat.F.P1.R, na.rm = TRUE), mean(F.abs.form.P1.R, na.rm = TRUE), MW_LLSC\(p.value, mean(F.abs.lat.F.LLSC, na.rm = TRUE), mean(F.abs.form.LLSC, na.rm = TRUE), LT_SALL\)“Pr(>F)”, mean(lat.F\(SALL, na.rm = TRUE), mean(form\)SALL, na.rm = TRUE), LT_SBLL\("Pr(>F)", mean(F.abs.lat.F.SBLL, na.rm = TRUE), mean(F.abs.form.SBLL, na.rm = TRUE), LT_SBDF\)“Pr(>F)”, mean(lat.F\(SBDF, na.rm = TRUE), mean(form\)SBDF, na.rm = TRUE), ttest.F.abs.BD\(p.value, mean(F.abs.lat.F.BD, na.rm = TRUE), mean(F.abs.form.BD, na.rm = TRUE), ttest.F.abs.CPD\)p.value, mean(F.abs.lat.F.CPD, na.rm = TRUE), mean(F.abs.form.CPD, na.rm = TRUE), ttest.F.abs.CPL\(p.value, mean(F.abs.lat.F.CPL, na.rm = TRUE), mean(F.abs.form.CPL, na.rm = TRUE), ttest.F.abs.PreDL\)p.value, mean(F.abs.lat.F.PreDL, na.rm = TRUE), mean(F.abs.form.PreDL, na.rm = TRUE), ttest.F.abs.DbL\(p.value, mean(F.abs.lat.F.DbL, na.rm = TRUE), mean(F.abs.form.DbL, na.rm = TRUE), ttest.F.abs.HL\)p.value, mean(F.abs.lat.F.HL, na.rm = TRUE), mean(F.abs.form.HL, na.rm = TRUE), ttest.F.abs.HD\(p.value, mean(F.abs.lat.F.HD, na.rm = TRUE), mean(F.abs.form.HD, na.rm = TRUE), ttest.F.abs.HW\)p.value, mean(F.abs.lat.F.HW, na.rm = TRUE), mean(F.abs.form.HW, na.rm = TRUE), ttest.F.abs.SnL\(p.value, mean(F.abs.lat.F.SnL, na.rm = TRUE), mean(F.abs.form.SnL, na.rm = TRUE), ttest.F.abs.OL\)p.value, mean(F.abs.lat.F.OL, na.rm = TRUE), mean(F.abs.form.OL, na.rm = TRUE), LT_FLA\("Pr(>F)", mean(lat.F\)FLA, na.rm = TRUE), mean(form$FLA, na.rm = TRUE)), ncol=3, byrow=TRUE)
colnames(average.table)<- c(“p-value for variance”, “lat mean”, “form mean”)
rownames(average.table) <- c(“dorsal rays”, “L pect rays”, “R pelvic rays”, ”L pelvic rays”, “Anal rays”, “R pect rays”, ”lat line scales”, ”scales above LL”, ”scales below LL”, ”scales before dor”, “body dep”, “peduncle dep”, “peduncle leng”, “pre-dorsal”, “dorsal base”, “head length”, “head depth”, “head width”, “snout leng”, “orbital leng”, “fluct. asymmetries”)
average.table
Variance plots
plot_multi_histogram <- function(df, feature, label_column) {
plt <- ggplot(df, aes(x=eval(parse(text=feature)), fill=eval(parse(text=label_column)))) +
geom_histogram(bins=10, alpha=0.4, position="identity", aes(y = ..density..), color="black") +
geom_density(alpha=0.2) +
labs(x=feature, y = "Density")
plt + guides(fill=guide_legend(title=label_column))
}
plot_multi_histogram(rawF3, "F.abs.res.CPD", "SPP")
plot_multi_histogram(rawF3, "F.abs.res.DbL", "SPP")
plot_multi_histogram(rawF3, "F.abs.res.P1.R", "SPP")
PCA analysis
PCA
LOGAN: CHECK THAT EACH VARIABLES IS NEAR NORMALLY DISTRIBUTED. IF NOT, LOG TRANSFORM BEFORE PCA. ALSO CHECK THAT PCA CALCULATES Z SCORES AND PLOTS BASED ON THAT; IF NOT CONVERT TO Z SCORES THEN RUN PCA.
In this analysis, I will compare the principle components after centering and scaling the data. A PCA analysis will help us determine what aspects of morphology influence the variation in our data the most without worrying about differences in scales/measurements. Currently, data consists of 116 Sailfin and 186 Amazon.
Chart
(chart <- matrix(c("Variable chart:", "D: dorsal ray count", "P1: left pectoral ray count", "P2.R: right pelvic rays", "P2.L: left pelvic rays", "A: anal rays", "P1.R: right pectoral ray count", "LLSC: lateral line scale count", "SALL: scales above lateral line", "SBLL: scales below lateral line", "SBDF: scales before dorsal fin", "TL: total length", "SL: standard length", "BD: body depth", "CPD: caudal peduncle depth", "CPL: caudal peduncle length", "PreDL: pre-dorsal length", "DbL: dorsal base length", "HL/HW/HD: head length/width/depth", "SnL: snout length", "OL: ocular length"), ncol=1, byrow=TRUE))## [,1]
## [1,] "Variable chart:"
## [2,] "D: dorsal ray count"
## [3,] "P1: left pectoral ray count"
## [4,] "P2.R: right pelvic rays"
## [5,] "P2.L: left pelvic rays"
## [6,] "A: anal rays"
## [7,] "P1.R: right pectoral ray count"
## [8,] "LLSC: lateral line scale count"
## [9,] "SALL: scales above lateral line"
## [10,] "SBLL: scales below lateral line"
## [11,] "SBDF: scales before dorsal fin"
## [12,] "TL: total length"
## [13,] "SL: standard length"
## [14,] "BD: body depth"
## [15,] "CPD: caudal peduncle depth"
## [16,] "CPL: caudal peduncle length"
## [17,] "PreDL: pre-dorsal length"
## [18,] "DbL: dorsal base length"
## [19,] "HL/HW/HD: head length/width/depth"
## [20,] "SnL: snout length"
## [21,] "OL: ocular length"Loadings
library(stringr)
rawFa <- subset(rawF, select = -c(17:18) ) #took out P2R and L since they don't vary at all
rawFa <- subset(rawFa, select=-c(34:49))#took out transformed values
rawFa <- raw1a[rawFa$SPP !="p.mexicana", ]
#PCA <- prcomp(raw1a[, 15:32], center=TRUE, scale. = TRUE) #includes all but pelvic traits, since they are the same in all species WILL SCALE/CENTER DATA ON MY OWN, LOGAN SAID IT IS NOT ALWAYS DOING IT FOR YOU EVEN WHEN YOU SPECIFY
z.scores <- scale(rawFa[, 15:33], center = TRUE, scale = TRUE)
rawFa <- cbind(rawFa, z.scores)
colnames(rawFa)[34:52] <- str_c( "z_", colnames(rawFa)[15:33] )
PCA.F <- prcomp(rawFa[, 34:52])
summary(PCA.F)## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6 PC7
## Standard deviation 3.1028 1.6016 1.15679 1.05508 0.9680 0.94482 0.84147
## Proportion of Variance 0.5056 0.1347 0.07027 0.05846 0.0492 0.04688 0.03718
## Cumulative Proportion 0.5056 0.6402 0.71052 0.76898 0.8182 0.86505 0.90224
## PC8 PC9 PC10 PC11 PC12 PC13 PC14
## Standard deviation 0.60870 0.56941 0.53848 0.50918 0.42822 0.34262 0.30695
## Proportion of Variance 0.01946 0.01703 0.01523 0.01361 0.00963 0.00616 0.00495
## Cumulative Proportion 0.92169 0.93872 0.95395 0.96756 0.97719 0.98335 0.98830
## PC15 PC16 PC17 PC18 PC19
## Standard deviation 0.26586 0.22708 0.22045 0.20646 0.09644
## Proportion of Variance 0.00371 0.00271 0.00255 0.00224 0.00049
## Cumulative Proportion 0.99201 0.99472 0.99727 0.99951 1.00000(loadings.F <- PCA.F$rotation[, 1:5])## PC1 PC2 PC3 PC4 PC5
## z_D -0.020520500 0.544109784 0.212346161 0.094684498 0.035653658
## z_P1 -0.015917759 -0.354670657 0.429869516 0.256842294 -0.077459561
## z_A -0.003336565 0.005801433 0.580021327 0.154415902 0.390945314
## z_P1.R -0.031160960 -0.380480371 0.339656568 0.314580254 -0.054571012
## z_LLSC -0.076777432 0.300421059 0.201652388 0.021827943 -0.319355143
## z_SALL -0.042381190 -0.104853664 -0.483772621 0.638729212 0.204452587
## z_SBLL -0.053376456 0.115848339 0.022011922 0.374108565 -0.769280021
## z_SBDF -0.014265974 -0.430711284 -0.051179456 -0.353024363 -0.290143578
## z_SL -0.321153547 -0.047972509 0.006703134 -0.046057979 0.007745119
## z_BD -0.311448185 0.084217071 -0.008769912 0.015047533 0.025405662
## z_CPD -0.315419529 -0.014937246 -0.003236237 -0.003875229 0.031254179
## z_CPL -0.308415182 -0.065325154 0.027617029 -0.003856951 -0.000421000
## z_PreDL -0.299462647 -0.183499969 -0.025680568 -0.064337625 -0.004310840
## z_DbL -0.262671960 0.283490980 0.077036393 0.036627085 0.040305851
## z_HL -0.286034092 -0.044846717 0.087838472 -0.218198058 -0.041700863
## z_HD -0.312497960 0.017111348 -0.022319361 -0.103197599 0.010280730
## z_HW -0.313507823 -0.039378201 -0.101404799 0.069469411 0.042162723
## z_SnL -0.273281812 -0.023254867 -0.117887375 0.223533019 0.100989264
## z_OL -0.285894911 0.029239373 0.025362472 -0.091188329 0.001490478F.sorted.loadings.1 <- loadings[order(loadings.F[, 1]), 1]
myTitle <- "Loadings Plot for PC1"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.1, main=myTitle, xlab=myXlab, cex=1.5, col="red")
F.sorted.loadings.2 <- loadings[order(loadings.F[, 2]), 2]
myTitle <- "Loadings Plot for PC2"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.2, main=myTitle, xlab=myXlab, cex=1.5, col="red")
F.sorted.loadings.3 <- loadings[order(loadings.F[, 3]), 3]
myTitle <- "Loadings Plot for PC3"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.3, main=myTitle, xlab=myXlab, cex=1.5, col="red")
FVM_PCA <- varimax(PCA.F$rotation[, 1:3])
FVM_PCA## $loadings
##
## Loadings:
## PC1 PC2 PC3
## z_D 0.580
## z_P1 -0.202 0.518
## z_A 0.181 0.550
## z_P1.R -0.252 0.440
## z_LLSC 0.355 0.101
## z_SALL -0.240 -0.428
## z_SBLL 0.123
## z_SBDF -0.420
## z_SL -0.324
## z_BD -0.298 0.119
## z_CPD -0.315
## z_CPL -0.312
## z_PreDL -0.321 -0.141
## z_DbL -0.221 0.326
## z_HL -0.285
## z_HD -0.309
## z_HW -0.321
## z_SnL -0.279 -0.103
## z_OL -0.278
##
## PC1 PC2 PC3
## SS loadings 1.000 1.000 1.000
## Proportion Var 0.053 0.053 0.053
## Cumulative Var 0.053 0.105 0.158
##
## $rotmat
## [,1] [,2] [,3]
## [1,] 0.99082964 -0.1349066 -0.007538965
## [2,] 0.12614234 0.9435714 -0.306204250
## [3,] 0.04842253 0.3024453 0.951935986library(factoextra)
(Feig.val <- get_eigenvalue(PCA.F))## eigenvalue variance.percent cumulative.variance.percent
## Dim.1 9.627322100 50.55524671 50.55525
## Dim.2 2.565066911 13.46974674 64.02499
## Dim.3 1.338171081 7.02703913 71.05203
## Dim.4 1.113192421 5.84562528 76.89766
## Dim.5 0.936930341 4.92003322 81.81769
## Dim.6 0.892686259 4.68769753 86.50539
## Dim.7 0.708077344 3.71827435 90.22366
## Dim.8 0.370518648 1.94567726 92.16934
## Dim.9 0.324232333 1.70261735 93.87196
## Dim.10 0.289958908 1.52263984 95.39460
## Dim.11 0.259260306 1.36143453 96.75603
## Dim.12 0.183375968 0.96294870 97.71898
## Dim.13 0.117387598 0.61642884 98.33541
## Dim.14 0.094220052 0.49477081 98.83018
## Dim.15 0.070682475 0.37116967 99.20135
## Dim.16 0.051564134 0.27077493 99.47212
## Dim.17 0.048596864 0.25519313 99.72732
## Dim.18 0.042626489 0.22384134 99.95116
## Dim.19 0.009300807 0.04884064 100.00000Find <- get_pca_ind(PCA.F)
head(Find$coord[,1:4])## Dim.1 Dim.2 Dim.3 Dim.4
## 1 -3.75654029 0.9963442 0.1202737 -0.07158804
## 2 -3.77314447 0.9309279 1.3941635 -2.02998171
## 3 -7.09220623 1.7167265 -0.8869908 -0.88765839
## 4 0.78774407 1.5978487 -1.7463255 0.64674771
## 5 -2.05119032 2.4149087 -0.6012883 -0.60946965
## 7 0.06977495 1.6710883 -2.0055974 1.01664764Fraw1.p <- rawFa[rawFa$SPP !="p.mexicana", ]
Fraw1.p <- cbind(Fraw1.p, Find$coord[,1:4])Post PCA tests
Flat.p <- Fraw1.p[Fraw1.p$SPP == "p.latipinna",]
Fform.p <- Fraw1.p[Fraw1.p$SPP == "p.formosa",]
(Fpc1 <- t.test(Flat.p$Dim.1, Fform.p$Dim.1, alternative = "two.sided"))##
## Welch Two Sample t-test
##
## data: Flat.p$Dim.1 and Fform.p$Dim.1
## t = 0.14049, df = 272.01, p-value = 0.8884
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.6815673 0.7863153
## sample estimates:
## mean of x mean of y
## 0.02694603 -0.02542794(Fpc2 <- t.test(Flat.p$Dim.2, Fform.p$Dim.2, alternative = "two.sided"))##
## Welch Two Sample t-test
##
## data: Flat.p$Dim.2 and Fform.p$Dim.2
## t = 31.429, df = 270.27, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 2.653873 3.008582
## sample estimates:
## mean of x mean of y
## 1.456646 -1.374582(Fpc3 <- t.test(Flat.p$Dim.3, Fform.p$Dim.3, alternative = "two.sided"))##
## Welch Two Sample t-test
##
## data: Flat.p$Dim.3 and Fform.p$Dim.3
## t = 1.2694, df = 272.21, p-value = 0.2054
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.09738425 0.45093379
## sample estimates:
## mean of x mean of y
## 0.09094934 -0.08582543(Fpc1V <- leveneTest(Dim.1~SPP, data=Fraw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 2.3928 0.123
## 274(Fpc2V <- leveneTest(Dim.2~SPP, data=Fraw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 0.6541 0.4193
## 274(Fpc3V <- leveneTest(Dim.3~SPP, data=Fraw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 1 9e-04 0.9759
## 274Plots
Component extractions
library(AMR)
library(ggplot2)
library(ggfortify)
(PCA.F$sdev ^ 2)## [1] 9.627322100 2.565066911 1.338171081 1.113192421 0.936930341 0.892686259
## [7] 0.708077344 0.370518648 0.324232333 0.289958908 0.259260306 0.183375968
## [13] 0.117387598 0.094220052 0.070682475 0.051564134 0.048596864 0.042626489
## [19] 0.009300807evplot <- function(ev)
{
# Broken stick model (MacArthur 1957)
n <- length(ev)
bsm <- data.frame(j=seq(1:n), p=0)
bsm$p[1] <- 1/n
for (i in 2:n) bsm$p[i] <- bsm$p[i-1] + (1/(n + 1 - i))
bsm$p <- 100*bsm$p/n
# Plot eigenvalues and % of variation for each axis
op <- par(mfrow=c(2,1))
barplot(ev, main="Eigenvalues", col="bisque", las=2)
abline(h=mean(ev), col="red")
legend("topright", "Average eigenvalue", lwd=1, col=2, bty="n")
barplot(t(cbind(100*ev/sum(ev), bsm$p[n:1])), beside=TRUE,
main="% variation", col=c("bisque",2), las=2)
legend("topright", c("% eigenvalue", "Broken stick model"),
pch=15, col=c("bisque",2), bty="n")
par(op)
}
ev <- PCA.F$sdev^2
evplot(ev) #according to Kaiser-Guttman criteron, we can use the first 4 PCs, even though the broken stick model shows only the first above the red bar plot... not 100% confident I know what this means, but pretty sure PC1 is body size
PCA 1v2
plotF1<- autoplot(PCA.F, data = rawFa, colour='SPP', loadings=FALSE, loadings.label=FALSE, frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plotF1
By zone
plotF2<- autoplot(PCA.F, data = rawFa, colour='QUARTILE', shape="SPP", frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plotF2
By Basin
plotF3<- autoplot(PCA.F, data = rawFa, colour='BASIN', shape="SPP", frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plotF3
By watershed
plotF4<- autoplot(PCA.F, data = rawFa, colour='WATERSHED', shape="SPP", frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plotF4## Too few points to calculate an ellipse
## Too few points to calculate an ellipse
## Too few points to calculate an ellipse
PCA 2v3
plotF5<- autoplot(PCA.F, x=2, y=3, data = rawFa, colour='SPP', loadings=FALSE, loadings.label=FALSE, frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plotF5
By zone
plotF6<- autoplot(PCA.F, x=2, y=3, data = rawFa, colour='QUARTILE', shape="SPP", frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plotF6
By basin
plotF7<- autoplot(PCA.F, x=2, y=3, data = rawFa, colour='BASIN', shape="SPP", frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plotF7
By watershed
plotF8<- autoplot(PCA.F, x=2, y=3, data = rawFa, colour='WATERSHED', shape="SPP", frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
plotF8## Too few points to calculate an ellipse
## Too few points to calculate an ellipse
## Too few points to calculate an ellipse
Tampico population
(1) Continuous, residuals
- will do two-tailed and check out the means to infer direction (see beginning for trait means w/o body correction)
- this will be for the traits that did have a significant regression compared to SL; will be using the absolute value residuals.
- For continuous traits, we will be using the transformed data.
ANOVAs
Ftampico <- rawF2[rawF2$COUNTY.ST == "Tamaulipas/MX",]
Flat.mx <- Ftampico[Ftampico$SPP == "p.latipinna",]
Fform.mx <- Ftampico[Ftampico$SPP == "p.formosa",]
Fmex.mx <- Ftampico[Ftampico$SPP == "p.mexicana",]
MX.BD <- aov(F.abs.res.BD~SPP, data=Ftampico)
summary(MX.BD)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.000181 0.0000905 0.239 0.788
## Residuals 69 0.026122 0.0003786MX.CPD <- aov(F.abs.res.CPD~SPP, data=Ftampico)
summary(MX.CPD)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.001447 0.0007235 1.769 0.178
## Residuals 69 0.028217 0.0004089MX.CPL <- aov(F.abs.res.CPL~SPP, data=Ftampico)
summary(MX.CPL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00129 0.0006452 1.333 0.27
## Residuals 69 0.03339 0.0004839MX.PreDL <- aov(F.abs.res.PreDL~SPP, data=Ftampico)
summary(MX.PreDL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00237 0.001186 0.695 0.503
## Residuals 69 0.11777 0.001707MX.DbL <- aov(F.abs.res.DbL~SPP, data=Ftampico)
summary(MX.DbL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00159 0.0007967 1.275 0.286
## Residuals 69 0.04310 0.0006247MX.HL <- aov(F.abs.res.HL~SPP, data=Ftampico)
summary(MX.HL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00631 0.0031551 4.699 0.0122 *
## Residuals 69 0.04633 0.0006715
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.HD <- aov(F.abs.res.HD~SPP, data=Ftampico)
summary(MX.HD)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00136 0.0006819 1.462 0.239
## Residuals 69 0.03219 0.0004665MX.HW <- aov(F.abs.res.HW~SPP, data=Ftampico)
summary(MX.HW)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.002485 0.001242 2.78 0.069 .
## Residuals 69 0.030840 0.000447
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.SnL <- aov(F.abs.res.SnL~SPP, data=Ftampico)
summary(MX.SnL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.00342 0.0017114 2.523 0.0876 .
## Residuals 69 0.04681 0.0006784
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1MX.OL <- aov(F.abs.res.OL~SPP, data=Ftampico)
summary(MX.OL)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 6.549e-34 3.275e-34 26.02 3.79e-09 ***
## Residuals 69 8.683e-34 1.260e-35
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(2) Discrete, residuals
Logan suggested doing a glm with poisson distribution (because it is count data) for these relationships. I originally performed Mann Whitney U tests, so will also include that. Overall, results don’t differ even though exact values are slightly different.
Had to remove the poisson part, becausethe residuals didn’t meet the non-integer requirement for poisson (it freaked out and took forever to load).
GLMs
FMX.glm_D <- glm(F.abs.res.D~SPP, data=Ftampico)
print(summary(FMX.glm_D), show.residuals=TRUE)##
## Call:
## glm(formula = F.abs.res.D ~ SPP, data = Ftampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.51391 -0.23043 -0.07983 0.03160 1.37970
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.52348 0.06794 7.705 6.91e-11 ***
## SPPp.latipinna -0.15297 0.09608 -1.592 0.116
## SPPp.mexicana -0.42956 0.09608 -4.471 2.98e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.11077)
##
## Null deviance: 9.9185 on 71 degrees of freedom
## Residual deviance: 7.6431 on 69 degrees of freedom
## AIC: 50.841
##
## Number of Fisher Scoring iterations: 2FMX.D.aov <- aov(FMX.glm_D)
summary(FMX.D.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 2.275 1.1377 10.27 0.000125 ***
## Residuals 69 7.643 0.1108
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1FMX.glm_P1.R <- glm(F.abs.res.P1.R~SPP, data=Ftampico)
print(summary(FMX.glm_P1.R), show.residuals=TRUE)##
## Call:
## glm(formula = F.abs.res.P1.R ~ SPP, data = Ftampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.3770 -0.2437 -0.1199 0.1534 0.8284
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.38686 0.07117 5.436 7.73e-07 ***
## SPPp.latipinna 0.11951 0.10064 1.187 0.2391
## SPPp.mexicana 0.18425 0.10064 1.831 0.0715 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1215512)
##
## Null deviance: 8.8064 on 71 degrees of freedom
## Residual deviance: 8.3870 on 69 degrees of freedom
## AIC: 57.529
##
## Number of Fisher Scoring iterations: 2FMX.P1.R.aov <- aov(FMX.glm_P1.R)
summary(FMX.P1.R.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.419 0.2097 1.725 0.186
## Residuals 69 8.387 0.1216FMX.glm_LLSC <- glm(F.abs.res.LLSC~SPP, data=Ftampico)
print(summary(FMX.glm_LLSC), show.residuals=TRUE)##
## Call:
## glm(formula = F.abs.res.LLSC ~ SPP, data = Ftampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.5060 -0.1993 -0.1323 0.1392 0.9289
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.59679 0.07544 7.911 2.91e-11 ***
## SPPp.latipinna -0.16351 0.10669 -1.533 0.130
## SPPp.mexicana -0.15647 0.10669 -1.467 0.147
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.1365928)
##
## Null deviance: 9.8350 on 71 degrees of freedom
## Residual deviance: 9.4249 on 69 degrees of freedom
## AIC: 65.929
##
## Number of Fisher Scoring iterations: 2FMX.LLSC.aov <- aov(FMX.glm_LLSC)
summary(FMX.LLSC.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.410 0.2051 1.501 0.23
## Residuals 69 9.425 0.1366FMX.glm_SBLL <- glm(F.abs.res.SBLL~SPP, data=Ftampico)
print(summary(FMX.glm_SBLL), show.residuals=TRUE)##
## Call:
## glm(formula = F.abs.res.SBLL ~ SPP, data = Ftampico)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -0.28156 -0.18794 -0.08678 -0.02909 0.81846
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.16217 0.05838 2.778 0.00704 **
## SPPp.latipinna 0.18721 0.08256 2.268 0.02649 *
## SPPp.mexicana 0.12392 0.08256 1.501 0.13792
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.08179103)
##
## Null deviance: 6.0789 on 71 degrees of freedom
## Residual deviance: 5.6436 on 69 degrees of freedom
## AIC: 29.005
##
## Number of Fisher Scoring iterations: 2FMX.SBLL.aov <- aov(FMX.glm_SBLL)
summary(FMX.SBLL.aov)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 0.435 0.21764 2.661 0.077 .
## Residuals 69 5.644 0.08179
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(3) Discrete, raw
EVEN THOUGH THESE ARE DISCRETE, NO IDEA WHAT ELSE TO DO WITH THEM (glmm on raw data will just compare means). Did both F-test and Levene’s test. Get the same overall results, albeit slightly different values. Might go with Levene’s since it is good with non-normal data.
This will only be for the traits that did not have a significant regression compared to SL (so P2s, A, SALL, SBDF, and FLA); none of these traits were transformed, so just doing raw for now.
Levene’s test
Still only performing this on the traits that did NOT vary with SL (P2L/R, A, SALL, SBLL [between sail and amz only], SBDF, FLA).
library(car)
library(carData)
(FLT_P2L <- leveneTest(P2.L~SPP, data=Ftampico)) #gives nothing since it's all the same value## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 NaN NaN
## 69(FLT_P2R <- leveneTest(P2.R~SPP, data=Ftampico)) #same as above## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 NaN NaN
## 69(FLT_P1 <- leveneTest(P1~SPP, data=Ftampico))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 0.4544 0.6367
## 69(FLT_A <- leveneTest(A~SPP, data=Ftampico)) ## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 0.4864 0.6169
## 69(FLT_SALL <- leveneTest(SALL~SPP, data=Ftampico))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 1.0299 0.3625
## 69(FLT_SBDF <- leveneTest(SBDF~SPP, data=Ftampico))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 1.8319 0.1678
## 69(FLT_FLA <- leveneTest(FLA~SPP, data=Ftampico))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 2.9858 0.05706 .
## 69
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1pca Loadings- TAMPICO
library(stringr)
FrawMX <- subset(Ftampico, select = -c(17:18) ) #took out P2R and L since they don't vary at all
FrawMX <- subset(FrawMX, select=-c(37:66))#took out transformed values
FMXz.scores <- scale(FrawMX[, 15:34], center = TRUE, scale = TRUE)
FrawMX <- cbind(FrawMX, FMXz.scores)
colnames(FrawMX)[35:53] <- str_c( "z_", colnames(FrawMX)[15:34] )## Warning in colnames(FrawMX)[35:53] <- str_c("z_", colnames(FrawMX)[15:34]):
## number of items to replace is not a multiple of replacement lengthFPCA.MX <- prcomp(FrawMX[, 35:53])
summary(FPCA.MX)## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6 PC7
## Standard deviation 2.5327 2.1014 1.19819 1.04869 0.9435 0.8585 0.7276
## Proportion of Variance 0.3769 0.2595 0.08436 0.06462 0.0523 0.0433 0.0311
## Cumulative Proportion 0.3769 0.6364 0.72079 0.78541 0.8377 0.8810 0.9121
## PC8 PC9 PC10 PC11 PC12 PC13 PC14
## Standard deviation 0.62859 0.48845 0.45764 0.40992 0.36703 0.33622 0.28223
## Proportion of Variance 0.02322 0.01402 0.01231 0.00987 0.00792 0.00664 0.00468
## Cumulative Proportion 0.93534 0.94936 0.96166 0.97154 0.97945 0.98610 0.99078
## PC15 PC16 PC17 PC18 PC19
## Standard deviation 0.27833 0.22561 0.16851 0.01287 0.003814
## Proportion of Variance 0.00455 0.00299 0.00167 0.00001 0.000000
## Cumulative Proportion 0.99533 0.99832 0.99999 1.00000 1.000000(Floadings.MX <- FPCA.MX$rotation[, 1:5])## PC1 PC2 PC3 PC4 PC5
## z_D 0.003079000 0.05498638 0.017592867 0.003807720 -0.0052674392
## z_P1 -0.013672506 0.01274665 0.001363128 -0.001753492 -0.0006291341
## z_A 0.191313522 0.37415442 0.043464145 0.188087609 0.0852507208
## z_P1.R -0.076937524 -0.34668336 0.270089334 0.123547824 -0.0240447537
## z_LLSC -0.008974737 -0.06994759 0.531648713 0.522863233 0.3462947028
## z_SALL -0.169514615 -0.33558764 0.156498084 -0.073114838 -0.1599493860
## z_SBLL -0.048774116 -0.21720156 -0.225839950 0.580779544 0.1689199820
## z_SBDF -0.037657997 -0.02730309 -0.556614839 -0.081761297 0.6553662227
## z_SL -0.035053256 -0.03301606 0.442924542 -0.475157776 0.5893281107
## z_BD -0.174215708 -0.37209031 -0.034487243 -0.159612534 -0.0292646014
## z_CPD -0.386453255 0.03868075 -0.036186599 0.030116393 -0.0041565630
## z_CPL -0.304630025 0.18640033 -0.075702240 0.199940102 0.1618641561
## z_PreDL -0.322119029 0.19978818 0.138132073 -0.099949837 0.0188186381
## z_DbL -0.366033924 -0.04879741 -0.029669695 0.052444248 -0.0748933477
## z_HL -0.358181160 -0.09505293 -0.097483815 -0.074131115 -0.0016797815
## z_HD 0.015125402 0.44242131 0.145314217 0.051295256 -0.0323683419
## z_HW -0.278914123 0.25293419 0.025098653 -0.057476598 -0.0233042702
## z_SnL -0.273424108 0.28999451 0.034728189 0.001197062 -0.0807830457
## z_OL -0.363493160 0.01661902 0.007589579 0.101556797 -0.0109248723FMX.sorted.loadings.1 <- loadings[order(Floadings.MX[, 1]), 1]
myTitle <- "Loadings Plot for PC1"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.1, main=myTitle, xlab=myXlab, cex=1.5, col="red")
FMX.sorted.loadings.2 <- loadings[order(Floadings.MX[, 2]), 2]
myTitle <- "Loadings Plot for PC2"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.2, main=myTitle, xlab=myXlab, cex=1.5, col="red")
FMX.sorted.loadings.3 <- loadings[order(Floadings.MX[, 3]), 3]
myTitle <- "Loadings Plot for PC3"
myXlab <- "Variable Loadings"
dotchart(sorted.loadings.3, main=myTitle, xlab=myXlab, cex=1.5, col="red")
FMX.VM_PCA <- varimax(FPCA.MX$rotation[, 1:3])
FMX.VM_PCA## $loadings
##
## Loadings:
## PC1 PC2 PC3
## z_D
## z_P1
## z_A 0.419
## z_P1.R -0.321 0.306
## z_LLSC 0.536
## z_SALL -0.354 0.195
## z_SBLL -0.244 -0.201
## z_SBDF -0.549
## z_SL 0.445
## z_BD -0.410
## z_CPD -0.377
## z_CPL -0.350
## z_PreDL -0.371 0.130
## z_DbL -0.328 -0.172
## z_HL -0.305 -0.220
## z_HD -0.136 0.434 0.100
## z_HW -0.348 0.145
## z_SnL -0.356 0.182
## z_OL -0.347 -0.106
##
## PC1 PC2 PC3
## SS loadings 1.000 1.000 1.000
## Proportion Var 0.053 0.053 0.053
## Cumulative Var 0.053 0.105 0.158
##
## $rotmat
## [,1] [,2] [,3]
## [1,] 0.94038914 0.3379432 -0.03824436
## [2,] -0.34009299 0.9351452 -0.09919777
## [3,] 0.00224082 0.1062911 0.99433253(FMXeig.val <- get_eigenvalue(FPCA.MX))## eigenvalue variance.percent cumulative.variance.percent
## Dim.1 6.414626e+00 3.769338e+01 37.69338
## Dim.2 4.415976e+00 2.594899e+01 63.64237
## Dim.3 1.435656e+00 8.436150e+00 72.07852
## Dim.4 1.099745e+00 6.462280e+00 78.54080
## Dim.5 8.900997e-01 5.230370e+00 83.77117
## Dim.6 7.369462e-01 4.330416e+00 88.10159
## Dim.7 5.293343e-01 3.110454e+00 91.21204
## Dim.8 3.951268e-01 2.321829e+00 93.53387
## Dim.9 2.385814e-01 1.401943e+00 94.93582
## Dim.10 2.094310e-01 1.230651e+00 96.16647
## Dim.11 1.680335e-01 9.873918e-01 97.15386
## Dim.12 1.347098e-01 7.915764e-01 97.94543
## Dim.13 1.130441e-01 6.642655e-01 98.60970
## Dim.14 7.965617e-02 4.680726e-01 99.07777
## Dim.15 7.746736e-02 4.552108e-01 99.53298
## Dim.16 5.089918e-02 2.990918e-01 99.83208
## Dim.17 2.839713e-02 1.668662e-01 99.99894
## Dim.18 1.656026e-04 9.731077e-04 99.99991
## Dim.19 1.454883e-05 8.549131e-05 100.00000FMXind <- get_pca_ind(FPCA.MX)
head(FMXind$coord[,1:4])## Dim.1 Dim.2 Dim.3 Dim.4
## 67 1.5969050 2.210835 -0.6532629 -0.53083136
## 68 -0.1275306 2.318444 1.0711280 1.01009545
## 69 2.2936236 1.763844 -0.5329951 1.53068766
## 70 1.6503726 1.567076 0.8160875 0.61664806
## 71 -0.2639574 2.257777 0.9663872 0.00696054
## 72 1.0900978 1.145430 0.8736923 0.83204699FMX.raw1.p <- cbind(FrawMX, FMXind$coord[,1:4])
TplotF1<- autoplot(FPCA.MX, x=2, y=3, data = FrawMX, colour='SPP', loadings=FALSE, loadings.label=FALSE, frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
TplotF1
TplotF2<- autoplot(FPCA.MX, data = FrawMX, colour='SPP', loadings=FALSE, loadings.label=FALSE, frame=TRUE, frame.type='norm')+ ggtitle("PCA Plot of Morphology traits") + theme_minimal()
TplotF2
Post PCA tests
FMXpc1 <- aov(Dim.1~SPP, data=FMX.raw1.p)
summary(FMXpc1)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 114.4 57.22 11.58 4.61e-05 ***
## Residuals 69 341.0 4.94
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1FMXpc2 <- aov(Dim.2~SPP, data=FMX.raw1.p)
summary(FMXpc2)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 229.17 114.59 93.72 <2e-16 ***
## Residuals 69 84.36 1.22
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1FMXpc3 <- aov(Dim.3~SPP, data=FMX.raw1.p)
summary(FMXpc3)## Df Sum Sq Mean Sq F value Pr(>F)
## SPP 2 6.98 3.490 2.536 0.0866 .
## Residuals 69 94.95 1.376
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(FMXpc1V <- leveneTest(Dim.1~SPP, data=FMX.raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 5.3087 0.00717 **
## 69
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(FMXpc2V <- leveneTest(Dim.2~SPP, data=FMX.raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 2.9022 0.06163 .
## 69
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1(FMXpc3V <- leveneTest(Dim.3~SPP, data=FMX.raw1.p))## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 2 0.5639 0.5716
## 69other
test.lat.OL <- lm(lat$OL ~ lat$SL)
t.sd.lat.OL <- rstandard(reg.lat.OL)
test.lat.OL.plot <- ggplot(lat, aes(x = SL_log, y = OL_log)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
test.lat.OL.plot## `geom_smooth()` using formula = 'y ~ x'
test.form.OL <- lm(form$OL ~ form$SL)
t.sd.form.OL <- rstandard(reg.form.OL)
test.form.OL.plot <- ggplot(form, aes(x = SL_log, y = OL)) +
geom_point() +
stat_smooth(method = "lm", col = "red") +
stat_cor(label.y = 10)
test.form.OL.plot## `geom_smooth()` using formula = 'y ~ x'
Pretty plots
Normal data
library(stringr)
library(ggplot2)
D <- ggplot(raw3, aes(x=SPP, y=abs.res.D, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of rays (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.D), fun=mean, geom="point", colour= "black", size=2)
P1 <- ggplot(raw3, aes(x=SPP, y=P1, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 1) + theme_classic()+ ylab("Number of rays") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=P1), fun=mean, geom="point", colour= "black", size=2)
A <- ggplot(raw3, aes(x=SPP, y=A, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of rays") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=A), fun=mean, geom="point", colour= "black", size=2)
P1.R <- ggplot(raw3, aes(x=SPP, y=abs.res.P1.R, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of rays (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.P1.R), fun=mean, geom="point", colour= "black", size=2)
LLSC <- ggplot(raw3, aes(x=SPP, y=abs.res.LLSC, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 1) + theme_classic()+ ylab("Number of scales (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.LLSC), fun=mean, geom="point", colour= "black", size=2)
SALL <- ggplot(raw3, aes(x=SPP, y=SALL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of scales") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=SALL), fun=mean, geom="point", colour= "black", size=2)
SBLL <- ggplot(raw3, aes(x=SPP, y=abs.res.SBLL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of scales (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.SBLL), fun=mean, geom="point", colour= "black", size=2)
SBDF <- ggplot(raw3, aes(x=SPP, y=SBDF, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 1) + theme_classic()+ ylab("Number of scales") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=SBDF), fun=mean, geom="point", colour= "black", size=2)
BD <- ggplot(raw3, aes(x=SPP, y=abs.res.BD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 25) + theme_classic()+ ylab("Depth (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.BD), fun=mean, geom="point", colour= "black", size=2)
CPD <- ggplot(raw3, aes(x=SPP, y=abs.res.CPD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Depth (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.CPD), fun=mean, geom="point", colour= "black", size=2)
CPL <- ggplot(raw3, aes(x=SPP, y=abs.res.CPL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 25) + theme_classic()+ ylab("Length (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.CPL), fun=mean, geom="point", colour= "black", size=2)
PreDL <- ggplot(raw3, aes(x=SPP, y=abs.res.PreDL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 35) + theme_classic()+ ylab("Length (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.PreDL), fun=mean, geom="point", colour= "black", size=2)
DbL <- ggplot(raw3, aes(x=SPP, y=abs.res.DbL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 25) + theme_classic()+ ylab("Length (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.DbL), fun=mean, geom="point", colour= "black", size=2)
HL <- ggplot(raw3, aes(x=SPP, y=abs.res.HL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 25) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.HL), fun=mean, geom="point", colour= "black", size=2)
HD <- ggplot(raw3, aes(x=SPP, y=abs.res.HD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 25) + theme_classic()+ ylab("Depth (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.HD), fun=mean, geom="point", colour= "black", size=2)
HW <- ggplot(raw3, aes(x=SPP, y=abs.res.HW, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 25) + theme_classic()+ ylab("Width (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.HW), fun=mean, geom="point", colour= "black", size=2)
SnL <- ggplot(raw3, aes(x=SPP, y=abs.res.SnL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 25) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.SnL), fun=mean, geom="point", colour= "black", size=2)
OL <- ggplot(raw3, aes(x=SPP, y=abs.res.OL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 8000000000000000) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.OL), fun=mean, geom="point", colour= "black", size=2)
FLA <- ggplot(raw3, aes(x=SPP, y=FLA, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Pectoral ray count difference") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=FLA), fun=mean, geom="point", colour= "black", size=2)
par(mfcol=c(7,3))
D
P1
A
P1.R
LLSC
SALL
SBLL
SBDF
BD
CPD
CPL
PreDL
DbL
HL
HD
HW
SnL
OL
FLA
Tampico data
library(stringr)
library(ggplot2)
T.D <- ggplot(tampico, aes(x=SPP, y=abs.res.D, color=SPP)) +
geom_jitter(alpha=0.2,width=0.05, show.legend = FALSE) + coord_fixed(ratio = 5) + theme_classic()+ ylab("Number of rays (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.D), fun=mean, geom="point", colour= "black", size=2)
T.P1 <- ggplot(tampico, aes(x=SPP, y=P1, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 2) + theme_classic()+ ylab("Number of rays") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=P1), fun=mean, geom="point", colour= "black", size=2)
T.A <- ggplot(tampico, aes(x=SPP, y=A, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 5) + theme_classic()+ ylab("Number of rays") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=A), fun=mean, geom="point", colour= "black", size=2)
T.P1.R <- ggplot(tampico, aes(x=SPP, y=abs.res.P1.R, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 6) + theme_classic()+ ylab("Number of rays (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.P1.R), fun=mean, geom="point", colour= "black", size=2)
T.LLSC <- ggplot(tampico, aes(x=SPP, y=abs.res.LLSC, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 6) + theme_classic()+ ylab("Number of scales (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.LLSC), fun=mean, geom="point", colour= "black", size=2)
T.SALL <- ggplot(tampico, aes(x=SPP, y=SALL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 6) + theme_classic()+ ylab("Number of scales") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=SALL), fun=mean, geom="point", colour= "black", size=2)
T.SBLL <- ggplot(tampico, aes(x=SPP, y=abs.res.SBLL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 6) + theme_classic()+ ylab("Number of scales (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.SBLL), fun=mean, geom="point", colour= "black", size=2)
T.SBDF <- ggplot(tampico, aes(x=SPP, y=SBDF, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 2) + theme_classic()+ ylab("Number of scales") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=SBDF), fun=mean, geom="point", colour= "black", size=2)
T.BD <- ggplot(tampico, aes(x=SPP, y=abs.res.BD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 45) + theme_classic()+ ylab("Depth (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.BD), fun=mean, geom="point", colour= "black", size=2)
T.CPD <- ggplot(tampico, aes(x=SPP, y=abs.res.CPD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 65) + theme_classic()+ ylab("Depth (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.CPD), fun=mean, geom="point", colour= "black", size=2)
T.CPL <- ggplot(tampico, aes(x=SPP, y=abs.res.CPL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 50) + theme_classic()+ ylab("Length (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.CPL), fun=mean, geom="point", colour= "black", size=2)
T.PreDL <- ggplot(tampico, aes(x=SPP, y=abs.res.PreDL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 20) + theme_classic()+ ylab("Length (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.PreDL), fun=mean, geom="point", colour= "black", size=2)
T.DbL <- ggplot(tampico, aes(x=SPP, y=abs.res.DbL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 45) + theme_classic()+ ylab("Length (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.DbL), fun=mean, geom="point", colour= "black", size=2)
T.HL <- ggplot(tampico, aes(x=SPP, y=abs.res.HL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 50) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.HL), fun=mean, geom="point", colour= "black", size=2)
T.HD <- ggplot(tampico, aes(x=SPP, y=abs.res.HD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 65) + theme_classic()+ ylab("Depth (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.HD), fun=mean, geom="point", colour= "black", size=2)
T.HW <- ggplot(tampico, aes(x=SPP, y=abs.res.HW, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 65) + theme_classic()+ ylab("Width (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.HW), fun=mean, geom="point", colour= "black", size=2)
T.SnL <- ggplot(tampico, aes(x=SPP, y=abs.res.SnL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 40) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.SnL), fun=mean, geom="point", colour= "black", size=2)
T.OL <- ggplot(tampico, aes(x=SPP, y=abs.res.OL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 400000000000000000) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=abs.res.OL), fun=mean, geom="point", colour= "black", size=2)
T.FLA <- ggplot(tampico, aes(x=SPP, y=FLA, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 2) + theme_classic()+ ylab("Pectoral ray count difference") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=FLA), fun=mean, geom="point", colour= "black", size=2)
par(mfcol=c(7,3))
T.D
T.P1
T.A
T.P1.R
T.LLSC
T.SALL
T.SBLL
T.SBDF
T.BD
T.CPD
T.CPL
T.PreDL
T.DbL
T.HL
T.HD
T.HW
T.SnL
T.OL
T.FLA
Filtered data
library(stringr)
library(ggplot2)
F.D <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.D, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + coord_fixed(ratio = 3)+ theme_classic()+ ylab("Number of rays (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.D), fun=mean, geom="point", colour= "black", size=2)## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.F.P1 <- ggplot(rawF3, aes(x=SPP, y=P1, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 1) + theme_classic()+ ylab("Number of rays") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=P1), fun=mean, geom="point", colour= "black", size=2)
F.A <- ggplot(rawF3, aes(x=SPP, y=A, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of rays") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=A), fun=mean, geom="point", colour= "black", size=2)
F.P1.R <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.P1.R, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of rays (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.P1.R), fun=mean, geom="point", colour= "black", size=2)
F.LLSC <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.LLSC, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 2) + theme_classic()+ ylab("Number of scales (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.LLSC), fun=mean, geom="point", colour= "black", size=2)
F.SALL <- ggplot(rawF3, aes(x=SPP, y=SALL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of scales") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=SALL), fun=mean, geom="point", colour= "black", size=2)
F.SBLL <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.SBLL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Number of scales (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.SBLL), fun=mean, geom="point", colour= "black", size=2)
F.SBDF <- ggplot(rawF3, aes(x=SPP, y=SBDF, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 1) + theme_classic()+ ylab("Number of scales") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=SBDF), fun=mean, geom="point", colour= "black", size=2)
F.BD <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.BD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Depth (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.BD), fun=mean, geom="point", colour= "black", size=2)
F.CPD <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.CPD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 35) + theme_classic()+ ylab("Depth (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.CPD), fun=mean, geom="point", colour= "black", size=2)
F.CPL <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.CPL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Length (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.CPL), fun=mean, geom="point", colour= "black", size=2)
F.PreDL <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.PreDL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Length (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.PreDL), fun=mean, geom="point", colour= "black", size=2)
F.DbL <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.DbL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Length (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.DbL), fun=mean, geom="point", colour= "black", size=2)
F.HL <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.HL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.HL), fun=mean, geom="point", colour= "black", size=2)
F.HD <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.HD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Depth (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.HD), fun=mean, geom="point", colour= "black", size=2)
F.HW <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.HW, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 35) + theme_classic()+ ylab("Width (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.HW), fun=mean, geom="point", colour= "black", size=2)
F.SnL <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.SnL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.SnL), fun=mean, geom="point", colour= "black", size=2)
F.OL <- ggplot(rawF3, aes(x=SPP, y=F.abs.res.OL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 8000000000000000) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.OL), fun=mean, geom="point", colour= "black", size=2)
F.FLA <- ggplot(rawF3, aes(x=SPP, y=FLA, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 3) + theme_classic()+ ylab("Pectoral ray count difference") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=FLA), fun=mean, geom="point", colour= "black", size=2)
par(mfcol=c(7,3))
F.D
F.P1
F.A
F.P1.R
F.LLSC
F.SALL
F.SBLL
F.SBDF
F.BD
F.CPD
F.CPL
F.PreDL
F.DbL
F.HL
F.HD
F.HW
F.SnL
F.OL
F.FLA
Filtered Tampico data
library(stringr)
library(ggplot2)
TF.D <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.D, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 5) + theme_classic()+ ylab("Number of rays (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.D), fun=mean, geom="point", colour= "black", size=2)
TF.P1 <- ggplot(Ftampico, aes(x=SPP, y=P1, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 2) + theme_classic()+ ylab("Number of rays") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=P1), fun=mean, geom="point", colour= "black", size=2)
TF.A <- ggplot(Ftampico, aes(x=SPP, y=A, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 5) + theme_classic()+ ylab("Number of rays") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=A), fun=mean, geom="point", colour= "black", size=2)
TF.P1.R <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.P1.R, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 7) + theme_classic()+ ylab("Number of rays (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.P1.R), fun=mean, geom="point", colour= "black", size=2)
TF.LLSC <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.LLSC, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 6) + theme_classic()+ ylab("Number of scales (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.LLSC), fun=mean, geom="point", colour= "black", size=2)
TF.SALL <- ggplot(Ftampico, aes(x=SPP, y=SALL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 5) + theme_classic()+ ylab("Number of scales") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=SALL), fun=mean, geom="point", colour= "black", size=2)
TF.SBLL <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.SBLL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 8) + theme_classic()+ ylab("Number of scales (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.SBLL), fun=mean, geom="point", colour= "black", size=2)
TF.SBDF <- ggplot(Ftampico, aes(x=SPP, y=SBDF, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 2) + theme_classic()+ ylab("Number of scales") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=SBDF), fun=mean, geom="point", colour= "black", size=2)
TF.BD <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.BD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 45) + theme_classic()+ ylab("Depth (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.BD), fun=mean, geom="point", colour= "black", size=2)
TF.CPD <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.CPD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 60) + theme_classic()+ ylab("Depth (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.CPD), fun=mean, geom="point", colour= "black", size=2)
TF.CPL <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.CPL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 60) + theme_classic()+ ylab("Length (residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.CPL), fun=mean, geom="point", colour= "black", size=2)
TF.PreDL <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.PreDL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Length (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.PreDL), fun=mean, geom="point", colour= "black", size=2)
TF.DbL <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.DbL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 55) + theme_classic()+ ylab("Length (cubed root residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.DbL), fun=mean, geom="point", colour= "black", size=2)
TF.HL <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.HL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 45) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.HL), fun=mean, geom="point", colour= "black", size=2)
TF.HD <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.HD, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 60) + theme_classic()+ ylab("Depth (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.HD), fun=mean, geom="point", colour= "black", size=2)
TF.HW <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.HW, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 50) + theme_classic()+ ylab("Width (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.HW), fun=mean, geom="point", colour= "black", size=2)
TF.SnL <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.SnL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 30) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.SnL), fun=mean, geom="point", colour= "black", size=2)
TF.OL <- ggplot(Ftampico, aes(x=SPP, y=F.abs.res.OL, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 300000000000000000) + theme_classic()+ ylab("Length (log residals)") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=F.abs.res.OL), fun=mean, geom="point", colour= "black", size=2)
TF.FLA <- ggplot(Ftampico, aes(x=SPP, y=FLA, color=SPP)) +
geom_jitter(alpha=0.2, width=0.05, show.legend = FALSE) + coord_fixed(ratio = 2) + theme_classic()+ ylab("Pectoral ray count difference") + xlab("Species")+ scale_x_discrete(labels=c('Amazon\n molly', 'Sailfin\n molly', 'Atlantic\n molly')) + stat_summary(fun.data = mean_se, geom = "errorbar", colour="black", width=0.1) + stat_summary(aes(x=SPP, y=FLA), fun=mean, geom="point", colour= "black", size=2)
par(mfcol=c(7,3))
TF.D
TF.P1
TF.A
TF.P1.R
TF.LLSC
TF.SALL
TF.SBLL
TF.SBDF
TF.BD
TF.CPD
TF.CPL
TF.PreDL
TF.DbL
TF.HL
TF.HD
TF.HW
TF.SnL
TF.OL
TF.FLA